بسم الله الرحمن الرحيم 


ای على ع اد که من اكاد م فى جات اقروت 
العربي للبرمجة . ثم اشكر منتدى الفريق العريي للبرمجة على اهتمامه بالموضوع بان قام بتثبيته في 
الت مها تسى عا الوافاة رالا ال ا ت واوو رال واا لی کد 
من تساؤلاتي في البرمجة . 

الف ى عى اقام لخدا و ف ال 


1- التعامل مع الصور و الرسم 
تم تحميل هذا الكتاب من موقع كتب 


2- الملفات و المجلدات www.kutub.info‏ 


للمزيد من الكتب في جميع مجالات 
3- اساسيات اللغة ا في ا 


لقيش 
نظام الشف 
6- النصوص 
7- تطبیقات الويب 
الول اة 
الاخ والوقت 


0- منوعات 


العامل مج الصور و الرسه 


مستعرض صور مبسط 


نريد ان نعمل برنامج يقوم باستعراض الصور الموجودة على الجهاز ومن ثم اختيار صورة لكي نستعرضها 
في البرنامج , واليك الكود البسيط: 


اولا ضع على الفورم صندوق حوار فتح (وهاهاك ۵۸م٥)‏ ومربع صورة و و زر امر (0۸الاط) واكتب هذا الكود 
في |ل: form1 class‏ 


If OpenFileDialog 1.ShowDialog = DialogResult.OK Then 
(PictureBox1.Image = Image.FromFile(OpenFileDialog 1.File Name 
End If 


شرح الكود: الخاصية وهاداف 0۷٥۸ء‏ تقوم بعرض صندوق الحوار فتح , واذا اختار المستخدم زر )0 على 
الصورة فان على مربع الصورة ان يعرضها . وقد استخدمنا الخاصية ۴۴١۳۴٤‏ التي يلزمها وسيط وهو 
اسم الملف المراد عرضه . والخاصية ۴۲١۳۴٤‏ موجودة في ال ككهاء مقٍة"]1 . 


تصغير الصور 


اذا اردت تصغير حجم الصورة (الطول والعرض) فعليك بوضع زر و مربع صورة ووضع اي صورة في مربع 
الصورة تم نغير اسم مربع الصورة الى , ۴٤۷۲۴1‏ ومن تم نكتب الكود التالي-: 


Dim x As Bitmap 
(x = Picture1.Image.GetThumbnaillmage(N2.Value, N1.Value, Nothing, Nothing 
("c\x.jpg")x.Save 


شرح الكود: نضع اي متغير وليكن المتغير × ونجعله على هيئة صورة "أ8 . 

تم نستخدم الوظيفة عوة"٣[|اا2”١u۳5‏ "اع الموجودة في الخاصية 1۳39٥‏ والتي توجد في الكائن 
Picture1‏ . 

-: عlوت‎ 4 لا‎ Get Thumbnail] "29€ الوظيفة‎ 


الاول: العرض الذي تريد ان تجعله للصورة . 

الثاني: الطول الذي تريد ان تجعله للصورة . 

التالث: يتيح لك الفرصة بان تلفي عملية تصغير الصورة , وفي متالنا استخدمنا الكلمة المحجوزة noti٣9‏ 
(اي اننا لم نستخدم هذا التابع) 

الرابع: دائما صفر (nothing)‏ 


و الناتج من هذه العملية وضعناه في المتغير × . 

وبعدها استخدمنا الوظيفة ع٥52۷‏ لكي نحفظ الصورة , والوظيفة 5۷٥‏ لها تابع واحد وهو :- 

مسار الصورة التي تريد حفظها . 

ويمكن ان نغير هيئة الصورة (أ۵١٣١١٠۴)‏ بكل سهولة . ولكن ساجعل كود تحويل هيئة الصورة لاحقا ان شاء 
الله . 


قلب الصور 


اذا اردت القيام بقلب صورة (عأةه۸) فعليك بانشاء زر امر و مربع صورة ووضع صورة فيه وكتابة الكود 
التالي-: 


Dim x As Bitmap = PictureBox1.Image 
(x.RotateFlip(RotateFlip Type.Rotate 18OFIiDY 
PictureBox1.Image = x 


شرح الكود: ننشئ اي متغير وليكن × ونجعله على هيئة صورة. 3۲ط تم نحدد ماهي الصورة التي 
سنتعامل معها وھي. Picturebox1.i1mag€‏ 


تم نستخدم الوظيفة طا۴عاةاه۸R‏ والتي لها تابع واحد وهو نوعية القلب . 

وهناك انواع کثير سيسردها لك. ۷5.٣٤‏ 

الى الان نحن قلبنا الصورة في المتغير × ولم نقلبها فعليا في مريع الصورة ولنقلبها فعليا يجب علينا ان 
نجعل الصورة الفعلية تساوي المتغير . PictureBox1.1 mage = X‏ 


Image Format تهينة الصور‎ 


اذا اردت تغيير هيئة صورة معينة فاكتب الكود التالي: 


("c:\pic06.jpg")Dim x As New Bitmap 
(System.Drawing.Imaging.ImageFormat.Bmp ,"c:\new.bmp")x.Save 


في البداية قمنا بانشاء متغير × ووضعنا فيه صورة معينة وذلك باستخدام الكلاس. 6"2 
بعد ذلك استخدمنا الدالة 53۷6 ولها تابعين: 
-1 مسار الصورة الجديدة التي تريد حفظها (بالاضافة الى امتداد الصورة) 

(bmp , gif , j9 هيئة الصورة.()°€....‎ 2- 


وبذلك نكون قد انشانا نفس الصورة ولكن بهيئة اخرى(كود مفيد جدا( 
اذكر كان في برنامج معمول بالفيجوال بيسك 6 يقوم فقط بتغيير هيئة الصور من م٣0‏ الى , ومز ولكني 


عندما اطلعت على الكود اصابتني صدمة . ما اقدر اوصفلكم كيف كان حجم الكود . ولكن الحمد لله على 
کل حال . 


التصغير و التكبير 


تصغیر و تکبیر ال ×۲880 ۴|۷ يتم باستخدام خاصتي width , height . J|‏ 
ولكن هاتين الخاصيتين لا تقوم بتصغير او تكبير الصورة . التي تقوم بهذه المهمة هي الدالة 
Image .‏ 6ethumbnalوالتي‏ تم شرحھا سابقا . 


المثال التالي يقوم بتكبير اي صورة في 80×1ع ۷۲ء۴ و يخزنها في مسار ۳۲ d:XXx.5‏ 


Dim x As Bitmap 
x = PictureBox1.Image.GetThumbnailImage(PictureBox1. Width + 100, 
PictureBox1.Height + 100, Nothing, Nothing) 


x.Save("d:xxx.bmp”") 


الوان متدرحة 


اذا اردت ان تملا الفورم بلون متدرج فاكتب الكود التالي: 


Dim grbrush As System.Drawing.Drawing2D.LinearGradientBrush 

_ grbrush = New System.Drawing.Drawing2D.LinearGradientBrush(New 

(Point(0, 0), New Point(Me.Width, Me.Height), Color.Gold, Color.Blue 
((Me.CreateGraphics.FillRectangle(grbrush, New Rectangle(0, 0, Me.Width, Me.Height 


اولا: نقوم بانشاء متغير من نوع 1كu radi e”18‏ ar6عLin‏ والذي يقوم بالوظيفة. 
تانيا: نقوم بكتابة وږسîlط‏ llدlلةö LinearGradientBrush‏ وھي: 


1- نقطة البداية: لكي نجعل اللون يملا الفورم من اوله فيجب وضع القيمة صفر لكل من ال. ¥ , × 
2- نقطة النهاية :لكي نجعل اللون يملا اخر الفورم فيجب وضع قيمة عرض الفورم لل , × وطول الفورم لل 


Y. 
اللون الاول.‎ -3 
اللون الثاني.‎ -4 


تالتا: نقوم بانشاء |Jکjûil Graphics‏ dlJأgرCreateGraphics)p(‏ 


رابعا: نقوم باستخدام الوظيفة عاو”ةاءع ۴١|‏ وذلك لكي نملا الفورم باللون المتدرج الذي انشاناه من 
الوظيفة . ٣كئLinearGradientBru‏ والوظيفةe‌ا۴¡||Rectang‏ لها تابعين: 


1- الفرشة او اللون الذي تريد ان تملا الفورم به. 
2- المساحة التي تريد ان تملا اللون بها في الفورم . ولهذا نستخدم البنية ع٥او”ةأءع۸R‏ والتي لها التوابع 


التالية: 


1- نقطة × وتبدا من اليسار العلوي : صفر 
2- نقطة ۷ وتبدا من اليسار العلوي : صفر. 


3- عرض المساحة: عرض الفورم. 
4- طول المساحة : طول الفورم . 


وبالتالي نکون قد انشانا لون متدرج للفورم . لکن لو اتينا لل 6 ۆnJv‏ جiı‏ |JlكJۈس LinearGradientBrush‏ 


تحويل النص الى صورة 
الكود التالي يقوم بتحويل النص الى هيئة صورة. 


_ ," !Me.CreateGraphics.DrawString("Hello World 
(New Font("Verdana", 16), Brushes.MediumSeaGreen, 10, 10 


الدالة ۸9| DraWS†‏ لما 5 توابع : 


1- النص الذي تريد تحويله الى صورة . 

2- نوع الخط الذي تريد كتابة النص به , وقد استخدمنا الكلاس ۴٥١‏ لتحديد اسم الخط وحجمه . و يتيح 
لك هذا الكلاس ۴٠١‏ خيارات عديدة للتلاعب في نصك . 

3- نمط النص او لونه : وقد استخدمنا الکلاس ١ع۸کں8۲‏ لاختیار نمط ال کل8۲ . وعن نفسي فقد اخترت 
اللون البحري . 

4 , 5 - تحدید موقع الصورة على الفورم وذلك بتحديد ال ۷ ,× . 


ويمكنك استبدال الفورم 1۴€ بمريع صورة ليمكنك تحرير الصورة اكثر وحفظها والى اخره . 


Clipboard الحافظة‎ 


كيف تقوم بنسخ و لصق الصور . الامر بسيط جدا 


اليك كود نسخ الصور : 


Clipboard.SetDataObject(PictureBox1.Image) 


استخدمنا الدالة اععز0bهtهدtعك‏ التابعة للكائن (03۲١‏ 1ا٣‏ ووظيفتها هي نسخ البيانات الى الحافظة . 


كود لصق الصور 


If Clipboard.GetDataObject.GetDataPresent(DataFormats. Bitmap) = True Then 
PictureBox1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap) 
Else 
MsgBox("The Clipboard doesn't contain a bitmap!") 
End If 


في البداية يجب التاكد فيما اذا كانت هناك صورة في الحافظة و ذلك باستخدام الدالة 
GetDataPresent‏ 


و تابعها هو نوع البيانات التي تريد التاكد فيما اذا كانت موجودة في الحافظة او لا . و بالتالي نستخدم 
Jlكاس DataFormats‏ لنعرف Jlلiوعg Bitmap‏ . 

و اذا كان الناتج ۲۲۷€ فننا نقوم بلصق الصورة في مربع الصورة و ذلك باستخدام الدالة 66023 و 
تابعها هو نوع البيانات التي تريد لصقها من الحافظة . 


مقدمة في معالجة الصور 


الصورة عبارة عن مصفوفة مكونة من قيم الوانها (احمر, ازرق, اخضر) . و كل قيمة من هذه القيم ترسم 
في نقطة تسمی بکسل |اع×آ۴ في اداة ×0 8عrںPict‏ . 


و بالتالي اذا اردنا ان نقوم بتغییرات بالصور او ان نقوم بعمل فلتر ۴۱۲6۲ فما علینا الا ان نقوم بتغفيير هذه 
القيم . 


فمتلا اذا اردنا ان نقوم بعكس الوان الصورة ع1.۷6۲5 فعلينا ان نقوم بطرح كل لون من الوان الصورة من 
5 . فمتلا اذا كانت هناك صورة زرقاء بالكامل (0 , 255 , 0 ) فان المعكکوس سيصبح (255 ,0 , 255 ) . 


و اذا اردت تمليس الصورة ۲ا8 فان العملية اصعب قليلا و لكنها فكرة ذكية جدا . 
الفكرة هي ان تجعل الوان الصورة قريبة من بعضها . ولكي تقوم بذلك فعليك باخذ المتوسط من كل 9 
نقاط كاه×آ۴ في الصورة . فاذا كانت هناك نقطة ذات فرق كبير في درجة لونها عن الثمانية النقاط الاخر 
فان المتوسط سوف يقرب لون هذه النقطة من الوان اخواتها الثمانية . 


و كذلك شحذ او تحديد الصور 5۸3۲8١‏ فما عليك الا القيام بعكس عملية التمليس . 


كما ان هناك عمليات اخرى كثيرة ولكن المهم ان نفهم المبدا وهو انك سوف تتعامل مع الوان الصورة . 
و بطبيعة الحال فان فجوال بيسك .نت يدعم هذا النوع من العمليات بدlلتjı‏ ھlo GePÎxel‏ و SetPixel‏ 
. اما الاولى فهي للحصول على الوان الصورة , واما الثانية فهي للتعديل في الوان الصورة . 


يبقى علينا التطبيق برمجيا بعد الانتهاء من فهم الفكرة نظريا . 


عکس الوان الصور 


اتبع الخطوات الاتية : 


ابدا مشروع ويندوز , ثم اضف زر امر و مربع صورة , تم اضف صورة من عندك الى مريع الصورة . 
داك اکت ها الك ت و الاق 


Dim bmap As New Bitmap(PictureBox1.Image) 

PictureBox1.Image = bmap 

Dim red, green, blue As Integer 

Dim i, j As Integer 

With bmap 

For i = 1 To .Height - 2 
For j = 1 To .Width = 2 

red = CInt(.GetPixel(j, i).R) 
blue = CInt(.GetPixel(j, i).B) 
green = CInt(.GetPixel(j, i).6) 
bmap.SetPixel(j, i, Color.FromArgb(255 - red, 255 - green, 255 - blue)) 


Next 
PictureBox1.Refresh() 
Next 
PictureBox1.Refresh() 
End With 


ساقوم بشرح النقاط الاساسية في هذا الكود . 


في بداية الامر قمنا بانشاء متغير و خزنا فيه الصورة الموجودة في مريع الصورة . 


بك نف اا خا رار الاو كم فج عد فوت الكل الموخوة قى الصو :لانن 
يقوم بفحص كل بنقطة او بكسل موجودة في الصورة . 


تم قمنا بتجميع النقاط ذات اللون الازرق و تخزينها في المتغير . ع1ا و كذلك اللون الاحمر و الازرق . 
وذلك عن طريق الدالة كام×أ۴أع و التي لها تابعين و هما احداتي النقطة التي تريدها . ۷إ, × 


ثم استخدمنا الدالة ام×أ۴ع5 لاقيام بعكس الوان الصورة , و التي لها 3 توابع : 
الاول و الثاني هما احداتي النقطة التي تريد تفيير لونها . 
الثالث : اللون الذي تريده للنقطة . و كما تلاحظ فاننا طرحنا كل لون من 255 لنقوم بعكس الوان الصورة . 


و اذا اردت تسريع العملية فقم بحذف 
PictureBox1.Refresh()‏ 


الاولى لانها تحت عملية التكرار الاولى . ووظيفتها انها تجعلك ترى العملية . 


و انشاء الله سوق نتعلم فكرة تمليس الصورة في الدرس القادم و هي فكرة رائعة جدا جدا . 


تمليس الصور 


الفكرة كما ذكرت سابقا عبارة عن تقريب درجة الوان النقاط من بعضها . فاذا كانت هناك نقطتين وحدة 
زرقاء والاخرى خضراء فسوف يتم تقريب لون الزرق الى التركوازي. ويتم ذلك بحساب المتوسط لكل 9 
نقاط في الصورة . 


Dim bmap As New Bitmap(PictureBox1.Image) 

PictureBox1.Image = bmap 

Dim red, green, blue As Integer 

Dim i, j As Integer 

With bmap 

For i = 1 To .Height - 2 
For j = 1 To .Width - 2 
red = CInt((CInt(.GetPixelj - 1, i - 1).R) + _ 
CInt(.GetPixel(j - 1, i).R) + _ 
CInt(.GetPixelj - 1, i + 1).R) + _ 
CInt(.GetPixel(j, i - 1).R) + _ 
CInt(.GetPixel(j, i).R) + _ 
CInt(.GetPixelj, i + 1).R) + _ 
CInt(.GetPixelj + 1, i - 1).R) + _ 
CInt(.GetPixelj + 1, i).R) + _ 
CInt(.GetPixel(j + 1, i + 1).R)) / 9) 
green = CInt((CInt(.GetPixel(j - 1, i - 1).6) + _ 
CInt(.GetPixel(j - 1, i).G) + _ 
CInt(.GetPixel(j - 1, i + 1).6G) + _ 
CInt(.GetPixel(j, i - 1).6) + _ 
CInt(.GetPixel(j, i).6) + _ 
CInt(.GetPixel(j, i + 1).6G) + _ 
CInt(.GetPixelj + 1, i - 1).6G) + _ 
CInt(.GetPixel(j + 1, i).6G) + _ 
CInt(.GetPixel(j + 1, i + 1).6)) / 9) 
blue = CInt((CInt(.GetPixelj - 1, i - 1).B) + _ 
CInt(.GetPixel(j - 1, i).B) + _ 
CInt(.GetPixel(j - 1, i + 1).B) + _ 
CInt(.GetPixel(j, i - 1).B) + _ 
CInt(.GetPixel(j, i).B) + _ 
CInt(.GetPixel(j, i + 1).B) + _ 
CInt(.GetPixelj + 1, i - 1).B) + _ 
CInt(.GetPixel(j + 1, i).B) + _ 
CInt(.GetPixel(j + 1, i + 1).B)) / 9) 
bmap.SetPixel(j, i, Color.FromArgb(red, green, blue)) 
Next 


PictureBox1.Refresh() 
' Me.Text = Int(100 * i / (PictureBox1.Image.Height - 2)). ToString & "%" 
Next 
End With 
PictureBox1.Refresh() 


Me.Text = "Done smoothing image" 


(اتبع نفس الخطوات السابقة في عكس الوان الصورة ) 


كما تلاحظ فان الكود متطابق في بدايته مع كود عكس الوان الصورة . 
واحب ان اوضح نقطة وهي -2 الموجودة في التكرار و فائدتها هي استبعاد اطراف الصورة من العملية . 


المتغير ۲۵١‏ : قمنا بجمع قيم الالوان لكل 9 نقاط متجاورة ذات اللون الاحمر ومن ثم قسمتها على 9 
لحساب المتوسط . 


و كذلك المتغير علاا5 و المتغير 9۲€€7 . 


و لو جربت ان تحذق عملية المتغير 9۲۴8١‏ و المتغير ۲۴١‏ فان الصورة ستصبح زرقاء تماما . 


Sharpening روصلl نتحديد‎ 


من المعروف ان تحديد الصورة هو عكس تمليسها . و لتحديد صورة يجب أن نجد خزارزمية معينة تبين او 
ق القرق مين الفط الجخافة اضلا: 

لات هن غر المفكن آة جد خو قاد تاها ولس وا اط ماةة: 

لذلك السؤال هو ماا هي الخو از ية الفي تريد الفرق بين التفاط المتجاورة المختافة اهلا (ذات الوت 
المكتاف) ولا فوئر على القاط المفخا وة المتطافة (ذات اللو الاح ۶؟ 


الجواب هو ان تضيف الفرق بين النقطة الاصلية و النقطة المجاورة الى النقطة الاصلية . و بالتالي اذا 
كانت النقطتان المتجاورتان ذات لون واحد فان الفرق سيساوي صفر و بالتالي لن تؤثر عليها , وانما التاثير 
سيحدت على النقاط التي سيكون بين قيمها فرق . و اليك الكود الذي سيوضح العملية 


Dim bmap = New Bitmap(PictureBox1.Image) 
PictureBox1.Image = bmap 
Dim red, green, blue As Integer 
Dim i, j As Integer 
With bmap 
For i = 1 To .Height - 2 
For j = 1 To .Width - 2 
red = CInt(.GetPixelj, i).R) + _ 
0.5 * CInt((.GetPixel(j, i).R) - CInt(.GetPixel(j - 1, i - 1).R)) 
If red < 0 Then red = red * -1 
green = CInt(.GetPixel(j, i).6G) + _ 
0.5 * CInt((.GetPixel(j, i).6) - CInt(.GetPixel(j - 1, i - 1).6)) 
If green < 0 Then green = green * -1 
blue = CInt(.GetPixel(j, i).B) + _ 
0.5 * CInt((.GetPixel(j, i).B - CInt(.GetPixel(j - 1, i - 1).B))) 
If blue < 0 Then blue = blue * -1 
red = Math.Min(red, 255) 
green = Math.Min(green, 255) 
blue = Math.Min(blue, 255) 
bmap.SetPixel(j, i, Color.FromArgb(red, green, blue)) 
Next 
PictureBox1.Refresh() 
Next 
End With 
PictureBox1.Refresh() 


Me.Text = "Done sharpening image" 


دعنا ناخذ المتغیر ۲۵۵ متلا أ , ز : هي النقطة الاصلية , اضفنا اليها الفرق بينها و بين النقطة المجاورة . 
اما عن الضرب في 0.5 فهو لتقليل حجم التفصيل او الفرق الحاصل . يمكنك القسمة على 2 بدلا من 
الضرب في 0.5 

و بعد حساب ۲۴۵ يجب التاكد من ان قيمتها موجبة . فاذا كانت سالبة فاننا نضربها ب -1 لتصبح موجبة, 
لان قيم الالوان بين 0 و 255 . و للتاكد من ان قيمة ۲۴۵ اقل او تساوي 255 فاننا نستخدم هذا الكود : 


red = Math.Min(red, 255) 


الدالة M1١‏ تعيد القيمة الاصغر بین قیمتین محددتین , فاذا کانت ۲۵۵ اکبر من 255 فان ۲۴۵ ستصبح 255 
حسب الدالة . Min‏ 
و هکذا المتغیرین 9۲۴8۸ و . ع٤‌uاb‏ 


و لكن لو جربت العملية فستلاحظ ان التنفيذ بطيء للغاية . و لستريعه قليلا فاننا نستخدم صورة مؤقتة 
في الذاكرة . و اليك الكود : 


Dim bmap = New Bitmap(PictureBox1.Image) 
PictureBox1.Image = bmap 
Dim red, green, blue As Integer 
Dim tempbmp As New Bitmap(PictureBox1.Image) 
Dim i, j As Integer 
With tempbmp 
For i = 1 To .Height - 2 
For j = 1 To .Width - 2 
red = CInt(.GetPixelj, i).R) + _ 
0.5 * CInt((.GetPixel(j, i).R) - CInt(bmap.GetPixel(j - 1, i - 1).R)) 
If red < 0 Then red = red * -1 
green = CInt(.GetPixel(j, i).6) + _ 
0.5 * CInt((.GetPixel(j, i).6) - CInt(bmap.GetPixel(j - 1, i - 1).6)) 
If green < 0 Then green = green * -1 
blue = CInt(.GetPixel(j, i).B) + _ 
0.5 * CInt((.GetPixel(j, i).B - CInt(bmap.GetPixelj - 1, i - 1).B))) 
If blue < 0 Then blue = blue * -1 
red = Math.Min(red, 255) 
green = Math.Min(green, 255) 
blue = Math.Min(blue, 255) 
bmap.SetPixel(j, i, Color.FromArgb(red, green, blue)) 
Next 
PictureBox1.Refresh() 
Next 
End With 
PictureBox1.Refresh() 


Me.Text = "Done sharpening image 


و مع ذلك فان الاداء غير مرضي لان العملية بطيئة جدا مقارنة مع برامج الرسم زي الفوتو شوب . و هذا 
يدل على ان هناك خوارزميات اخرى للتعامل مع مثل هذا النوع من معالجة الصور . 


ان نخوض اكثر في الخوارزميات و الافكار و الحيل البرمجية . 


لتسريع عمليات معالجة الصور السابقة قم بتغير الكود من 


Dim bmap = New Bitmap(PictureBox1.Image) 


الى 


Dim bmap As New Bitmap(PictureBox1.Image) 


زخرفة الصور وہ أbossصEm‏ 


اعتقد ان الجميع يعرف الفلتر المسمى E055‏ و الموجود في برامج تحرير الصور المشهورة مثل 


الفوتوشوب . يقوم هذا الفلتر بابراز براويز او حواف الكائنات الموجودة في الصورة . 
يمكننا عمل ذلك بالقيام باخذ الفارق بين كل نقطتين متجاورتين . ولكن غالبا يكون هذا الفارق ضئيل و 


بالتالي ستظهر الصورة غامقة و لذلك يجب عليك اضافة رقم الى هذا الفارق (مثلا 100 او 128 او 150 ) 
لزيادة اضاءة الصورة . 


new_value = difference + 128 


و اليك الكود الخاص بهذه العملية : 


Dim bmap As New Bitmap(PictureBox1.Image) 


PictureBox1.Image = bmap 


Dim i, j As Integer 
Dim red, green, blue As Integer 
With bmap 
For i = 0 To .Height - 2 
For j = 0 To .Width - 2 
Dim pixel1, pixel2 As System.Drawing.Color 
pixel1 = .GetPixel(j, i) 
pixel2 = .GetPixel(j + 1, i + 1) 
red = Math.Min(Math.Abs(CInt(pixel1.R) - CInt(pixel2.R)) + 128, 255) 
green = Math.Min(Math.Abs(CInt(pixel1.6) - CInt(pixel2.6)) + 128, 255) 
blue = Math.Min(Math.Abs(CInt(pixel1.B) - CInt(pixel2.8B)) + 128, 255) 
bmap.SetPixel(j, i, Color.FromArgb(red, green, blue)) 
Next 
PictureBox1.Refresh() 
Next 
End With 
PictureBox1.Refresh() 


Me.Text = "Done embossing image" 


كما تلاحظ فان المتغيرين 2اع×آ۴ , 1اع×أ۴ هما عبارة عن نقطتين متجاورتين في الصورة 


green = Math.Min(Math.Abs(CInt(pixel1.6) - CInt(pixel2.6)) + 128, 255) 


* الدالة M١‏ تعيد القيمة الاصغر بين قيمتين . وهي بالتالي تضمن بان القيمة لن تتجاوز ال 255 . 


* الدالة ط۸ تعيد القيمة المطلقة للقيمة . فاذا كانت القيمة سالبة فان الدالة تحولها الى قيمة موجبة . 
وهي بالتالي تضمن بان القيمة لن تكون سالبة . 


تغخبیش الصور وہ ایں؟Dif‏ 


بصراحة لم احد معنى مناسب لكلمة . هل0۴۴ و لكن ستعرف معناها جيدا اذا طبقت الكود . كود تغبيش 
الصورة يعتمد على جعل الصورة نقاط عشوائية . هذه النقاط العشوائية نقوم بانشائها باستخدام الدالة 
. و اليك الكود الذي سيبين لك العملية 


Dim bmap = New Bitmap(PictureBox1.Image) 
PictureBox1.Image = bmap 
Dim tempbmp As New Bitmap(PictureBox1.Image) 
Dim i As Integer, j As Integer 
Dim DX As Integer 
Dim DY As Integer 
Dim red As Integer, green As Integer, blue As Integer 
With tempbmp 
For i = 3 To .Height - 3 
For j = 3 To .Width - 3 
DX = Rnd(ÛO * 4 - 2 
DY = RndÛO * 4 - 2 
red = .GetPixelj + DX, i + DY).R 
green = .GetPixeljj + DX, i + DY).6G 
blue = .GetPixel(j + DX, i + DY).B 
bmap.SetPixel(j, i, Color.FromArgb(red, green, blue)) 
Next 
PictureBox1.Refresh() 
Next 
End With 
PictureBox1.Refresh() 


Me.Text = "Done diffusing image" 


لاحظ اننا اسندنا القيمة 2 - 4 * ۸١0)(‏ للمتغيرين 0۷ , 0 . استخدمت -2 لكي ات1581##8;اشى 
حواف الصورة , والا فان خطأً ما سيحدث . 


لاحظ ايضا انه كلما زدنا قيمة الرقم العشوائي (4 , 5 , 6 ) فان العملية ستزيد تركيزا . جربها بنفسك . 


و احب ان اوضح انه بدون انشاء متغير ۲ 5۳١۳ع(‏ فان العملية ستكون بطيئة جدا و غير مرتبة لان العملية 
ستؤثر على الصورة نفسها في كل امر و عملية حسابية في حلقة التكرار . و لكن بالمتغير 5۳۲١ع‏ 
فاننا نقوم بالحسابات في الخلفية ١١‏ 82)9۲ واما التطبيق بالدالة ام×أ۴ ا56 فيكون على الصورة 
نفسها وذلك بالمتغير 0"3 و بالتالي تكون العملية اسرع و اجمل . 


الاضاءة في الصور Brightness‏ 


هل تساءلت یوما عن كيفية تكثيف و رة تقلياإ درحة الاضاءة فقي الصور ؟ 


الفكرة بسيطة جدا لان فجوال بيسك .نت يدعم خاصية اسمها الفا 2٣ا‏ يمكنك من خلالها تفيير درجة 
شفافية الصورة . اظن ان الفكرة قد وضحت و اليك الكود الذي يقوم بتقليل درجة الاضاءة في صورة : 


PictureBox1.BackColor = Color.Black 
Dim bmap = New Bitmap(PictureBox1.Image) 
PictureBox1.Image = bmap 
Dim tempbmp As New Bitmap(PictureBox1.Image) 
Dim red, green, blue As Integer 
Dim i, j As Integer 
With tempbmp 
For i = 1 To .Height - 2 
For j = 1 To .Width - 2 
red = CInt(.GetPixel(j, i).R) 
green = CInt(.GetPixel(j, i).6G) 
blue = CInt(.GetPixel(j, i).B) 
bmap.SetPixel(j, i, Color.FromArgb(200, red, green, blue)) 
Next 
PictureBox1.Refresh() 
Next 
End With 
PictureBox1.Refresh() 


کا لاط فاا فی اة الک فا م لوه الاه 0 فخ الهوة الى الأو تم فا ر 
قيمة الفا للصورة تساوي 200 . و قيمتها بين 0 و 255 . 

5 : غير شفافة . 

0 : شفافة تماما . 


و الخاصية الفا هي اول تابع في الدالة اه×أ۴ام6 . 
و اذا اردت ان تجعل الصورة اكثر اضاءة فاجعل الخلفية بيضاء We‏ . 


الالوان في الصور 


اذا اردت ان تجعل صورتك زرقاء مثلا فاجعل قيمة اللون الاحمر و الاخضر تساوي صفر 


Dim bmap = New Bitmap(PictureBox1.Image) 
PictureBox1.Image = bmap 
Dim tempbmp As New Bitmap(PictureBox1.Image) 
Dim red, green, blue As Integer 
Dim i, j As Integer 
With tempbmp 
For i = 1 To .Height - 2 
For j = 1 To .Width - 2 
red = CInt(.GetPixel(j, i).R) 
green = CInt(.GetPixel(j, i).6G) 
blue = CInt(.GetPixel(j, i).B) 
bmap.SetPixel(j, i, Color.FromArgb(0, 0, blue)) 
Next 
PictureBox1.Refresh() 
Next 
End With 
PictureBox1.Refresh() 


و اذا اردت مثلا ان تحذف اللون الاخضر في صورتك فاجعل قيمة اللون الاخضر تساوي صفر . 


و اظن ان هذه العملية موجودة في فوتو شوب و تسمی ب ۸2٣/6۴۶‏ . 


المجلداتے و الملوارت 


التعامل مع المجلدات 
لانشاء مجلد جديد , عليك كتابة الكود التالي-: 


Dim x As Directory 
("x.CreateDirectory("c:\folder 
("x.Delete("c:\folder 


في البداية انشانا متغير من الفئة 0۲۷٤ع,5i‏ 

تم استخدمنا الدالة ۷إامأععا0iعatعاC‏ والتي لها تابع واحد وهو مسار المجلد الذي تريد انشائه. 
اما الدالة عاءاع0 فتقوم بحذف المجلد . ولها تابع واحد وهو مسار المجلد الذي تريد حذفه. 

واذا اردت معرفة اخر مرة تم الدخول الى مجلد معين فعليك بالكود التالي: 


("n = x.GetLastAccessTime("c:\windows 
(MsgBox(n 


GetLastAccessTime öلlدl|‎ ioxخةختiwl‎ liil iنوظحالت كما‎ 


ولمعرفة تاريخ انشاء مجلد: 


("n = x.GetCreation Time("c:\windows 
(MsgBox(n 


خصانص الملفات 
اذا اردت ان تخفي ملف او ان تجعله للقراءة فقط او او او , فقم بكتابة الكود الاتي: 


Dim x As IO.File 
(x.SetAttributes("c:\x.doc", IO.FileAttributes. Com pressed 


هذه الدالة لها تابعين هما 


مسار الملف الذي تريد التفييير في خصائصه 
الخاصية التي تريد اضافتها للملف . وسيعرضلك لسته فيها جميع الخصائص 


قراءة الملغات النصية 


اضف زر امر واكتب الكود الاتي: 


وقبل کل شيء 


'الملف الذي تريد قراءته 
"Dim FILENAME As String = "C:\x.txt‏ 


'amReaderعStre‏ يستخدم لقراءة الملفات 
Dim objStreamReader As StreamReader‏ 


ext‏ "عم تستخدم لفتح ملف لیتم التعامل معه 
(objStreamReader = File.OpenText(FILENAME‏ 


'ٴoEnd Read‏ تستخدم لقراءة الملف کاملا 
(Dim contents As String = objStreamReader.ReadToEnd‏ 


'نسخ محتوى الملف الى مريع النص 
TextBox1.Text = contents‏ 


"اغلاق الملف 
(objStreamReader.Close‏ 


Imports System.IO 


اهام شيء في الكود السابق هو الكلاس ١۲٤2ع ۳R‏ ع5۲ والذي به مجموعة من الخصائص و الوظائف 


التي تستخدم في قراءة الملفات. 


والنهاية استخدمت الوظيفة ع5٠ا)‏ كي اغلق الملف , ولاني اذا لم اغلقه فانه لن يقبل اي عملية 
Requestعليه‏ من اي مستخدم , وسيعرض الرسالة 4عأ٣عك‏ كءععء۸ لان الملف قيد الاستخدام ولم 


دوال الملفات 


SetAttröllıJl 


تقوم هذه الدالة بتغيير خواص الملفات للقراءة فقط , مخفي... 


ولها وسيطين: 


(SetAttr("d:\x.gif", File Attribute.ReadOnly 
الاول: الملف الذي تريد تغفير خواصه.‎ 


Kill الدالة‎ 


("KiIIK("C:\x.txt 


ولها وسيط وحيد وهو الملف الذي تريد حذفه. 


llلallı FileDateTime‏ 
القيمة المسترجعة من هذه الدالة هي الوقت والتاريخ لملف معين . 


(("MsgBox(FileDate Time("d:\x.gif 


ولها وسيط وحيد وهو الملف الذي تريد معرفة التاريخ والوقت الذي انشئ فيه او المرة الاخيرة التي تم 


lلJlıلة: FileLen‏ 
القيمة المسترجعة من هذه الدالة هي حجم ملف معين بالبايتات. 


(("MsgBox(FileLen("c:\x.txt 


طبعا راح يكون الرقم كبير لانه بالبايتات . ويالتالي يمكنك القسمة على 1024 لتحويله الى كيلو بايت. 


lلlıئö FileCopy‏ 
تقوم هذه الدالة بنسخ ملف معين من مساره الى مسار اخر. 


("FileCopy("C:\x.txt", "d:\x.txt 


لها وسيطين وهما: 
الاول: مسار الملف الذي تريد نسخه. 
الثاني: المسار الذي تريد نسخ الملف اليه. 


Rename allıل|‎ 


تقوم بتغییر اسم ملف او مجلد معين 


("Rename("C:\x.txt", "C:\y.txt 


ولها وسيطين: 
الاوك مسار الفلف الف وة كي هة 
القانيء المسار الاسم الحديد 


ويمكنك تغییر اسم مجلد کامل حتی لو کانت به ملفات او مجلدات . 


دوال المجلدات 


lلaölJlı MkDir‏ 
تقوم بانشاء مجلد 


("MkDir("C:\fld 


ولها تابع وحيد وهو مسار المجلد الذي تريد انشاؤه. 


lلallı RmDir‏ 
تقوم بمسح مجلد معين بشرط ان يكون المجلد خالي . واذا اردت حذف مجلد به ملفات فقم باستخدام 
الدالة اان) لمسح الملفات تم استخدم الدالة ۸۳01۲ لحذف المجلد. 


("RmDir("C:\fld 


ولها تابع وحيد وهو مسار المجلد الذي تريد حذفه. 


كما ان هناك دوال اخری متتل 01۲ والتي تتحقق من وجود ملف او مجلد معین. 
واليك هذا الكود على الدالة 5٣‏ 


(hidden = Dir("C:\WINNT\*.dIl", FileAttribute. Hidden 


فالكود السابق يقوم بالكشف عن ملفات ال اا المخفية الموجود في ملفات الويندوز. 


نكتفي بهذا القدر من دوال المجلدات . 


حذف ملفغفات مجلد 


سنتعلم اليوم كود بسيط مبني على فكرة البرمجة الدورية . ۴۲٥9۲۳۳٣9‏ ع۷أsاRecu‏ هذا الكود يقوم 
بمسح جميع ملفات مجلد معين ثم يقوم بحذف هذا المجلد . و سابدا بشرح الفكرة منطقيا خطوة 
بخطوة 


-1قم باستدعاء فضاء الاسماء 10 الذي يحتوي على فئات المجلدات و الملفات . 


Imports System.IO 


-2الكود التالي يقوم بحذف جميع ملفات المجلد ٥:××‏ 


Directory.Delete("C:xx", True) 


التابع الثاني يطلب منك فيما اذا اردت حذف المجلد بما فيه من ملفات و مجلدات او حذف المجلد فقط و 
هذه الحالة سيكون المجلد فاضي . 


اذن هذه الدالة ادت الغرض . ولكن تبقى هناك مشكلة او استتثناء بمعنى اخر , وهو اذا كانت هناك 
ملفات لها الخاصية ۸٤۴2۵-07١1۷‏ فلن تستطيع هذه الدالة القيام بحذفها . ولذلك يجب علينا ان نقوم بتغيير 
خصائص جميع ملفات المجلد الى اج"٣No۲‏ 


-3لكي تقوم بتغيير خصائص جميع ملفات المجلد الى N0۲۳2‏ يجب ان تكتب هذا الكود 


Dim h As String 
Sub Clean() 
For Each h In Directory.GetFiles("C:xx") 
File.SetAttributes(h, FileAttributes. Normal) 
Next 
End Sub 


في البداية استخدمنا العبارة , ا×€N‏ .... Ec‏ ۴0 لكي نتعامل مع كل ملف في هذا المجلد . مهمة 
السطر الاول ان يخزن مسار كل ملف في المتغير ٣‏ 


اما السطر الثاني فيقوم بتوحيد خصائص جميع الملفات الموجودة في المجلد ٥:××‏ الى اكق"٣No۲‏ 


لاحظ ان الكود السابق لا يقوم بتغيير خصائص المجلدات و انما خصائص الملفات فقط . 


-4لاستخدام الاجراء السابق قم بكتابة هذا الكود 


Clean) 
Directory.Delete("C:xx", True) 


السطر الاول يستدعي الاجراء ١2عا€‏ 


السطر الثاني يمسح المجلد بما فيه من ملفات . كما انه يقوم بحذف المجلدات التي ليس بها ملفات 
Read-Only‏ 


و باذن الله سوف اقوم قریبا بوضع کود یمسح المجلد بما فيه من ملفات ومجلدات و خرابیط ووو , و 
سيقوم ايضا على مبدا البرمجة انلدوريıةö Recursive Program mig‏ 
واليك الكود كاملا 


Dim h As String 
Sub Clean() 
'On Error Resume Next 
For Each h In Directory.GetFiles("C:xx") 
File.SetAttributes(h, FileAttributes. Normal) 
Next 
End Sub 


Clean) 
Directory.Delete("C:xx", True) 
End Sub 


ولکن قبل کل شيء لا تنسی 


Imports System.IO 


الحصول على امتداد ملف 


("system.IO.Path.GetExtension("c:\file.txt = Dim yy As String 
(MsgBoX(yY 


الدالة ٣tExtensi0ه‏ تعطيك امتداد اي ملف تمرره لها . 


عا هه الا 


الكلاس كءها€ 


الكلاس , اليك المتثال: 


Class SimpleClass 

(Public Sub SimpleMethod 
("system.Console. Write("Simple Class 
End Sub 

End Class 


الكود السابق عبارة عن تصريح لللكلاس ككها٣€عام"‏ ك والذي به الوظيفة ك١0اعءMعامimكS‏ لاحظ ان الكود 
السابق لا يقوم باي عمل الا اذا كتبت هذا الكود: 


Class Prog 

OPublic Shared Sub Main 
(Dim obj as New SimpleClass 
(obj.SimpleMethod 


End Sub 
End Class 
التعرف على انواع البيانات‎ 
IsArray öllıلl‎ 
تقوم بالتحقق فيما اذا كان المتغير على شكل مصفوفة او لا.‎ 
(Dim x(100 
((MsgBox(IsArray(x 
IsDate öllıلl‎ 
تقوم بالتحقق من المتغير اذا كان على هيئة تاريخ او لا.‎ 
Dim x 


("x = InputBox("Enter the date 

If IsDate(x) = True Then 
("MsgBox("thank you 

Else 

("MsgBox( "enter the date correctly 
End If 


الكود السابق يطلب من المستخدم كتابة التاريخ . ثم يقوم بالتحقق عن طريق الدالة 1502٥‏ ما اذا كان 
المستخدم قد ادخل التاريخ بشكل صحيح او لا. 


llلدllةa IsNumeric‏ 
تقوم بالتحقق من المتغير فيما اذا كان رقما او نصا. 


Dim x 
("x = InputBox("type your age 
If Not IsNumeric(x) = True Then 


("MsgBox("type it again please 
End If 


الكود السابق يطلب من المستخدم ادخال عمره . فاذا كتبه نصيا فان البرنامج يطلب منه اعادة كتابته 
رقميا . 


تحويل انواع البيانات 

: اCB00‏ -1تقوم بتحويل نوع المتغير الى قيمة Boolean‏ |ي. ) (True , False‏ 
By :‏ -2تقوم بتحويل نوع المتغير الى قيمة بايت. 

Date :‏ -3تقوم بتحويل نوع المتفغير الى قيمة تاريخ. 

: ع0 -4تقوم بتحويل نوع المتغير الى قيمة عشرية. 

: اط -5تقوم بتحويل نوع المتغير الى عدد مضاعف. 

C1۲ :‏ -6تقوم بتحويل نوع المتغير الى عدد صحيح. 

: 009ا -7تقوم بتحويل نوع المتغير الى عدد طويل. 

CS :‏ -8تقوم بتحويل نوع المتغير الى نص. 


و ساعطيك مثال على الدالة الاخيرة لتعرف كيف تقوم بالتحويل في انواع البيانات: 


((MsgBox(CStr(123 


في هذه المثال حولنا العدد 123 الى قيمة نصية يمكن استخدامها في الدوال التي تطلب منك ادخال 


الأ وفيس 


التدقيق الاملائي 


سنتعلم اليوم فكرة جميلة جدا و مفيدة و هي التدقيق الاملائي للنص . بالطبع لن نقوم بعمل فهرس 
ا ا و ا كا ال الاساى اح ال وه ك ل ا ل كه 
ال اى وخ ي اتا طك الات الاعات الخاطة: 


في البداية ابدا مشروع ويندوز جديد , ٿم اضف زري امر2 , ×b0طtext‏ , listbox‏ 


تم من قائمة ز۴ اختر . Add Reference‏ من علامة التبويب C0۳‏ اأختر العنصر 10 Microsoft W0rd‏ 
Library‏ ectز0bطبعا‏ لازم تکون مرکب الوورد, ثم اضغط )0 
و اليك الكود مع الشرح 


هذا الكود تحت زر الامر رقم واحد 


' يمثل هذا المتغير برنامج الوورد 
public WordApp As New Word.Application()‏ 


1 يمتثل هذا المتفغفير النص المكتوب 
Dim DRange As Word.Range‏ 
Me.Text = "Starting Word ..."‏ 
اضافة مستند جديد 
WordApp.Documents.Add()‏ 
Me. Text = "Checking words..."‏ 
تعرف النص المكتوب الحالي و الموجود في المستند الذي اضفناه 
DRange = WordApp.ActiveDocument.Range‏ 
1 ادخال النص المكتوب في مربع النص الى المستند 
DRange.InsertAfter(TextBox1. Text)‏ 
! يمثل هذا المتغير الاخطاء الاملائية 
Dim SpellCollection As Word.ProofreadingErrors‏ 
١‏ تعريف الاخطاء الاملائية المكتوبة في النص 
SpellCollection = DRange.SpellingErrors‏ 
1 اذا كانت هناك اخطاء املائية في النص 
If SpellCollection.Count > O0 Then‏ 
Dim iword As Integer‏ 
Dim newWord As String‏ 
حلقة تكرارية تضيف جميع الاخطاء الاملائية الى اللستة 
For iword = 1 To SpellCollection.Count‏ 
newWord = SpellCollection.Item(iword). Text‏ 
ListBox1.Items.Add(newWord)‏ 
Next‏ 
End If‏ 
Me.Text = "Word spelling Demo"‏ 
End Sub‏ 


الكود السابق يقوم بفحص النص المكتوب في مربع النص , ثم يقوم بادراج الكلمات الخاطئة (الغير معرفة 
في فهرس الوورد) الى اللستة رقم واحد . 


و ساقوم باضافة الجزء الثاني في الدرس القادم انشاء الله و هو عن كيفية استدعاء المقترحات للاخطاء 
الاملائية . 
احب فقط ان اوضح السيناريو السابق: 


في البداية انشانا مستند جديد , تم قمنا بانشاء صفحة (عو١ه۲)‏ و هي التي بها النص . بعد ذلك نقلنا 
النص الموجود في مريع النص الى الصفحة , ثم قمنا بعمل التدقيق الاملائي و اظهار النتائج في برنامجنا 


التدقيق الاملائي 2 


سنقوم باضافة المقترحات في اللستة رقم 2 للاخطاء الاملائية الموجودة في اللستة رقم1فاذا اختار 
المستخدم كلمة من الكلمات المقترحة ثم ضغط على الزر رقم 2 فان البرنامج يقوم باستبدال الكلمة 
الخاطئة في مريع النص بالكلمة المقترحة التي اختارها المستخدم . 


Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles ListBox1.SelectedIndexChanged 
يمثل هذا المتغير الكلمات المقترحة‎ 
Dim CorrectionsCollection As Word.SpellingSuggestions 
ناخذ الكلمات المقترحة للاخطاء الاملائية الموجودة في اللستة1‎ 
CorrectionsCollection = WordApp.GetSpellingSuggestions(ListBox1. Text) 
مسح جميع العناصر الموجدة في اللستة2‎ 
ListBox2.Items.Clear() 
اذا كانت هناك مقترحات للاخطاء الاملائية‎ 1 
If CorrectionsCollection.Count > O0 Then 
Dim iWord As Integer 
2 حلقة تقوم باضافة الكلمات المقترحة الى اللستة‎ 
For iWord = 1 To CorrectionsCollection.Count 
ListBox2.Items.Add(CorrectionsCollection.Item(iWord).Name) 
Next 
End If 
End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button2.Click 
اذا كانت هناك اخطاء املائية و مقترحات لهذه الاخطاء‎ 1 
If ListBox1.SelectedIndex >= 0 And ListBox2.SelectedIndex >= 0 Then 

اسبدال الكلمات الخاطئة في مربع النص بالكلمات المقترحة 

TextBox1.Text = Replace(TextBox1. Text, _ 

ListBox1.SelectedItem, ListBox2.SelectedItem) 

1 حذف الخطا الاملائي في اللستة 1 بعد القيام باسبداله 

ListBox1.Items.Remove(ListBox1.SelectedIndex) 


ListBox2.Items.Clear() 


End If 
End Sub 


العمليات الحسابية المعقدة مع الاكسل 


من المعروف ان من اهم الوظائف التي يقوم بها برنامج الاكسل هي القيام بالعمليات الحسابية المعقدة 
جدا . لذلك سنتعرف اليوم على كيفية ربط برنامج الاكسل و ادخال العبارات الحسابية اليه ثم اخراج 
النتائج . 


اولا: من قائمة اz٤عزه۴r‏ اختر , Add Reference‏ من علامة التبويب C0۳‏ اختر العنصر 10 Microsoft ExCel‏ 
Library‏ ectز0bتم‏ اضغط . OK‏ 


تانيا: اضف زر امر و اكتب الكود الاتي : 


' يمثل هذا المتغير برنامج الاكسل 
Dim exl As New Excel.Application()‏ 
سنخزن في هذا المتغير عبارة رياضية معقدة 
Dim mathStr As String‏ 
امكانية ادخال العبارات الرياضية من المستخدم 
mathStr = InputBox("Enter math expression to evaluate", , _‏ 
"cos(56.7/4)/exp(-4.269)")‏ 
If mathStr <> "" Then‏ 
Try‏ 
اظهار نتيجة العبارة الرياضية 
MsgBox(exl.Evaluate(mathStr). ToString )‏ 
في حال وجود خطأً 
Catch exc As Exception‏ 
MsgBox(exc.Message)‏ 
End Try‏ 
End If‏ 


۴ O ڼظام‎ 


اصدار نظام التشغیل 10۸ء05۷6 


لمعرفة رقم اصدار نظام التشغJı: Operating SYsS€m‏ 
ضع زر امر على الفورم (١0ا8)‏ واكتب الكود التالي: 


("MessageBox.Show("OS Version: " + Environment.OSVersion. ToString, "Operating System 


كما تلاحظون فاننا نستخدم الكلاس Enviro" me€n†‏ 


المدة المستغرقة منذ تشغيل الجهاز 


اولا : قم بانشاء زر 0۸٤ا bu‏ 
تانیا : اکتب هذا الکود: 


Dim x As System.Environment 

Dim y As Integer 

y = (x.TickCount()) / 60000 

>×Ms980("المدة‏ المستغرقة منذ تشغيل الجهاز هي " + و9١‏ ١٣ا؟ه‏ .۷ + " دقيقة") 
End Sub‏ 


زبدة الكود السابق تكمن في الدالة خ٣‏ اه٣‏ ءآ" والتي تقوم بارجاع المدة المسغرقة منذ تشغيل الجهاز 
على شكل مللي تانية آي. ۵٩٣٥ءع‌MilliİS‏ 

ولتحويلها الى دقائق يجب ان نقسم الالقيمة المسترجعة على. 60000 

وكما تلاحظون فقد حولنا المتغير ۷ من قيمة عددية الى قيمة نصية وذلك لكي نعرضها في ال ×ه98ء١‏ 
واريد ان انوه ايضا بان الدالة غ7 0u‏ )ءا موجودة في الفئة ۴۸۷1۲٥۳۴8۸۲‏ والتي استدعيناها في اول الكود 


التعامل مع الريجستري (۷١ءأgعR)‏ 
سنتعرف في هذا الدرس البسيط كيفية التعامل مع مسجل النظام gis†!۷لRe‏ 
ساقوم بعمل برنامج یحفظ عرض و طول النموذج ۴٥۲۳‏ بحيث اذا خرج المستخدم من البرنامج ودخل 


عليه مرة اخرى فانه يجده على الحالة التي تركه عليها من حيث الطول والعرض. 


اولا : قم بانشاء زري امر , ١0ا5‏ و اجعل الخاصية × للزر الاول تساوي "٥۷ء"‏ وللزر الثاني 
. "Restore"تم‏ قم بكتابة الكود التالي-: 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles save.Click 

Dim w As Integer = Me.Width 

Dim h As Integer = Me.Height 

(Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software", True 

("Dim newkey As RegistryKey = key.CreateSubKey("MCBINnc 

(newkey.SetValue("width", w 

(newkey.SetValue("height", h 

End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Restore.Click 

("Dim x As RegistryKey = Registry.LocalMachine.OpenSubKey("software\\MCBinc 

("Dim wval = x.GetValue("width 

("Dim hval = x.GetValue("height 


Me.Width = wval 
Me.Height = hval 
End Sub 


ولا تنسی : 


Imports Microsoft. Win32.Registry 
Imports Microsoft.Win32.RegistryKey 


شرح الكود: تعاملنا في الكود السابق مع الريجستري . ففي الزر الاول قمت بانشاء متغيرين وجعلت 
قيمة الاول عرض الموذج وقيمة الثاني طول النموذج. 

ثم انشات متغير وجعلته على هيئة مفتاح ريجستري . ومفاتيح الريجستري الاساسية خمسة منها 
المفتاح ع iاMacا0caاL‏ والذي يقوم بحفظ التغفييرات التي يقوم بها المستخدم في البرامج . تم 
استخدمت الوظيفة ۷ع٤)ubا5١عم0‏ والتي تقوم بفتح مفتاح في الريجستري ليكون جاهزا للتعامل معه 
من حيث الاضافة او الحذف او التعديل. وهذه الوظيفة لها تابعين :- 

الاول: اسم او مسار المفتاح الذي تريد التعامل معه. 

الثاني: تحدید ما اذا كنت ترید ان تضيف او تكتب شيئا في المفتاح . ووضعناها ]۲1۷٤٥‏ لاننا نريد حفظ 
وضعية الطول والعرض في البرنامج . 


وبعدها استخدمت JlدJlلö CreateSubKey‏ والتي تقوم بانشاء مفتاح فرعي , ولها تابع واحد وهو اسم 
المفتاح الفرعي . 

تم بعدها نستخدم الوظيفة عuاة56۷‏ لنقوم باضافة قيمة للمفتاح , ولها تابعين:- 

الاول:- اسم القيمة التي تريد اضافتها . 

الثاني:- القيمة التي تريد اضافتها . ووضعت هنا عرض و طول الفورم . 


ف ار الى قم كح فف الفا الف ناته معا لاقو ا اح الات مه وها ا 
كتاج ان ال التات الاني 6نا لاني لن اضف او اعذك كنيع في القيم واتما ساسك جع انات فف : 
ونعدها استخدمنا الدالة #ناة/۷اع6 والتي تقؤم باسترجاع القيم , ولها تايع واحد وهو اسم الفيمة التي 
نرید استرجاعها . 

واخيرا نقوم بتعديل قيم طول وعرض الفورم. 


Sleep 


اذا اردت ان تجعل برنامجك يتوقف عن الاستجابة لفترة زمنية معينة فما عليك الا كتابة السطر التالي: 


(System. Threading. Thread.Sleep(5000 


الدالة ما5 تقوم بالعمل , ولها تابع واحد وهو المدة الزمنية التي تريد برنامجك ان يتوقف عن الاستجابة 
فيها , وتقاس بالمللي ثانية . ولكي تحولها الى ثانية يجب عليك بضرب العدد في 1000 لذا الكود 
السابق يقوم بالتوقف لمدة 5 ثوان . 


تغيبر شكل المؤشر 
اذا اردت تغيير شكل المؤشر فعليك بكتابة السطر التالي-: 


Cursor.Current = Cursors. WaitCursor 


في الشطر الأيسر من الكود استدعيت الفئة ٥1۲50۲‏ وتعني مؤشر الفارة . ثم استخدمت الخاصية 

Current‏ وتعني المؤشر الحالي. 

اما في الشطر الايمن فقد استخدمت الفئة- C1۲50۲5‏ لاحظ الفرق بين هذه و تلك- لكي استدعي 

المؤشر . ۷211٤1۲50۲‏ وبذلك نكون قد اسبدلنا شكل المؤشر بكل بساطة , ولكي نسترجع المؤشر 
السابق فعلينا كتابة الكود التالي-: 


Cursor.Current = Cursors. Default 


Drives الدرايغات‎ 


اذا آرت اف تقرف اسما الدزاقات الموخوذة قي جهازك قن طرنى ينافج تعملة انت , فاتبح الخطوات: :: 


Application Console gan İl 


امسح صفحة الكود , و اكتب هذا الكود 


Module Module1 

QsSub Main 

'استدعاء الاجراء 

OShowDrives 

End Sub 

(Private Sub ShowDrives 

Dim d() As String 

'نخزن اسماء الدرايفات الموجودة في الجهاز في المتغير ل 
d = System.IO.Directory.GetLogicalDrives‏ 
'تعریف عداد 
Dim en As System.Collections.IEnumerator‏ 
'نعدد الدرايفات الموجودة في الجهاز 
en = d.GetEnumerator‏ 

'حلقة تكرار تقوم بكتابة اسماء الدرايفات بالترتيب 
While en.MoveNext‏ 
((Console.WriteLine(CStr(en.Current‏ 

End While 

'ايقاف تنفيذ البرنامج لنقوم بالقراءة 
(Console.ReadLine‏ 

End Sub 

Module End 


دقة الشاشة 


()GetScreenResolution 

End Sub 

As System.Drawing.Size ()Public Function GetScreenResolution 

Dim x 

هذا الكلاس الذي يعطيك دقة وضوح الشاشة 

System.Windows.Forms.SystemInformation.PrimaryMonitorSize = x 
(MsgBox(x. ToString 


End Function 


تشغيل برنامجك عند بدء التنشغيل 


اذا اردت برنامجك يعمل عند بداية تشغيل الويندوز ما 53۲٣‏ فعليك كتابة الكود الاتي: 


= Dim x As String 
(System.Environment.GetFolderPath(Environment.SpecialFolder. Startup 
Dim y As String = System.Environment.CurrentDirectory 


("xx.exe" + "\" + System.IO.File.Copy(y + "\" + "windowsapplication1.exe", x 


السطر الاول يعطيك مسار مجلد بدء التشغيل . 
السطر الثاني يعطيك مسار مجلد برنامجك . 
السطر الثالت يقوم بنسخ برنامجك من مجلده الاصلي الى مجلد بدء التشغيل . 


لاخظ ان خی عاك استخدام ا کی تخ ملف مین موود کی مار 


الزصوص 


التعامل مع النصوص 
الدالة : A5٤‏ تعطي الرقم المقابل لحرف معين. 
(("MsgBoXx(Asc("X‏ 
سیکون الناتج. 120 
الدالة : Ch‏ تعطي الحرف المقابل لرقم معين و هي معاكسة للدالة A٤‏ 
(("MsgBox(Chr("120‏ 
سيكون الناتج هو الحرف × 
الدالة : مsة٤|‏ تحول الحروف الكبيرة اةاأمة٤‏ الى صغيرة من ۸ الى ج 
(("MsgBox(LCase("HOLA‏ 
الدالة : مئU€2‏ تحول الحروف الصغيرة الى كبيرة (من ه الى( ۸ 
(("MsgBox(UCase("hola‏ 


الدالة : ٣ئ1‏ تعطيك موقع النص 1 خلال النص 2 . والمتثال هو افضل وسيلة للتوضيح: 


Dim x, y As String 

"x = "look Over over there 

"y = "over 

((MsgBox(InStr(x, y, CompareMethod. Text 


الكود السابق يعرض لك موقع الكلمة ۷ خلال الجملة. × 
الدالة ۲ا لھا 3 وسائط: 


-1النص الذي تريد البحث فيه. 

-2النص الذي تريد البحث عنه. 

-3نوع طريقة البحث , فلو اخترت ال 81١3۲۷‏ فان البحتثت سيضع في الحسبان الحروق الكبيرة و الصغيرة . 
يعني الكود السابق سيعرض لك في صندوق الرسالة الرقم 6 لان موقع اول حرف في الكلمة 0۷8۲ خلال 
النص × هو 6 . ولكن لو غيرنا الطريقة من ×6 الى 3۲۷٣أط‏ فانه سيعرض لك الرقم 11 لان ٥۷6۲‏ الاولى 
کابیتال. 


الدالة ٣أك"]‏ تفيدك في البحث كثيرا. 


الدالة : ۲٣0۳۲‏ تقارن بين نصين من حيت الحجم. 


((MsgBox(StrComp("helo", "helo", CompareMethod. Text 


((MsgBox(StrComp("heloo", "helo", CompareMethod. Text 
سيعطيك القيمة 1 لان النص الاول اكبر من الثاني.‎ 


((MsgBox(StrComp("hel", "helo", CompareMethod. Text 
سيعطيك القيمة 1 لان النص الاول اصغر من الثاني.‎ 


الدالة : ١6۸ا‏ تعطيك عدد حروف نص معين. 
JI")MsgBox(Lenحıoد "ai‏ (( 
ستكون القيمة 9 لان عدد حروق الجملة هي 9 
lلدالa‏ : Trim‏ تزیل مسافات النص من اليمين ومن اليسار. 
("Dim x As String = InputBox("Type your name‏ 


("MsgBox(Trim(x) + "OK 


فلو وضعت مسافة على يمين النص فستلاحظ انه ازيل. 


الدالة : #ع2م8 تضيف مسافة الى النص. 
("Dim x As String = InputBox("Type your name‏ 
("MsgBox(x + Space(5) + "OK‏ 


الدالة : S۲٥ up‏ تعطيك رمز او حرق او نص مكرر بعدد معين من المرات. 


(("!" ,MsgBox(StrDup(20 


فمثلا الكود السابق يعرض الرمز ! عشرين مرة. 


الدالة : Str/R ever‏ تقوم بعکس نص معین. 


(("MsgBox(StrReverse("helo 


الدالة : معهامعR‏ تقوم باستبدال نص معين خلال جملة بنص اخر. 


"Dim x As String = "Visual Basic .NET 
(("MsgBox(Replace(x, ".NET", "Seven 


الكود السابق يعرض الجملة × ولكن بعد ان يستبدل الكلمة NET.‏ ب Seven‏ 
تفيدك في البحث اذا اردت اضافة ميزة الاستبدال كما في برامج تحرير النصوص 


السانات 
الدالة : خكm١د۴‏ تقوم بتنسيق رقم او تاريخ او عملة الى نمط معين. 


(HH, HH, HH H$" ,MsgBox(Format(54681251 


الكوذ الفتابق تقوم يتحول رقم الى قملة مط معين.. هذا النمط بخدد في الوسيط التاتي للدالة 


من خلال هذه الدالة يمكنك تحويل انماط كثيرة للبيانات 


الدالة : 166 تقوم بمحاذاة النص الى جهة اليسار. 


الدالة : ۸56٤‏ تقوم بمحاذاة النص الى جهة اليمين. 


((MsgBox(RSet("helo", 100 


الود التاق قوم دفخا5اة كلمة أ1 الى جهة التمتن تمقذار 100 خانة 


تطبیقا مت ا لویوے 


تصفح الانترنت 


توجد اداة جاهزة في اع Su di0.‏ اuaا۷¡s‏ لاستراض صفحات الانترنت, واذا اردت استخدام هذه الاداة 
فعليك باتباع الخطوات التالية: 


Customize Too|80X .رluiتخlب -1من القائمة , كاھ قم‎ 
OK .طخéض›l‎ „î Microsoft Web Browser , ةlدڼJl‎ il COM Components بيوبتll -2من علامة‎ 


-3من ۴0۲۳5 Windows‏ الموجودفي صندوق الادوات ۲۵۵۱8٥٨‏ ستجد الاداة , ١٣٥٣oام×٤‏ اضغط علیھا 
مرتين لكي تضيفها الى الفورم. 
-4اضف زر امر واکتب هذا الکود: 


("AxWebBrowser1.Navigate("www.google.com 


الدالة عأةوااةN‏ تقوم بعرض صفحة معينة . ولها تابع واحد وهو الصفحة التي تريد عرضها في الاداة. 


واليك اهم الاوامر المتعارف عليها: 


()AxWebBrowser1.GoBack 
()AxWebBrowser1.GoForward 


()AxWebBrowser1.GoHome 
()AxWebBrowser1.Refresh 
()AxWebBrowser1.Stop 


ويمكنك تجربة الخصائص والاوامر الاخرى التي تتيحها لك هذا الاداة الرائعة . 


هذا الكود يقوم بتحميل ملف من النت : 


Dim wc As New System.Net.WebClient() 
wc.DownloadFile("http://www.microsoft.com/homepage/gif/artHome.gif", "c:x.gif") 
End Sub 


بطل الكود هو : الدالة €اأ02d۴اnس0ط‏ والتي توجد في الكلاس أ١عآا€ W€‏ والذي يوجد في فضاء 
الاسlnء Net‏ . 


الدالة ۴€ Download‏ لما تابعین: 
1- الملف الذي تريد تحميله من الشبكة . 
2- المسار الذي تريد فيه تحميل الملف . 


واذا واجهتك مشكلة في الكود السابق فارجو ابلاغي بذلك . 


انشاء تطبيaات‏ |Jلgويب Web Application‏ 
للقيام بعمل برنامج ويب مبسط -كبداية -فاتبع الخطوات الاتية: 
*في البداية يجب التاكد من ان 115 مثبت في الويندوز 2000 او . ۲× 


-é1زJ Visual Studio.NET‏ و , Internet Explorer‏ تم تاکد في rعorامExp tenet‏ من انه لا توجد 
علامة صح امام €¬|iا¡Of۴ Work‏ وذلك من قائمة. اا۴ 


-2في , Studio. NE‏ اVisua‏ من قائمة ٤ا۴‏ اشر علی eW‏ ومن ثم. اcع‌زهPr‏ 
-3|خjëi. ASP.NET Web Application‏ 


-4من ۲٥۵۱80×‏ ومن قائمة ۴۵۲۳5 Web‏ اضف زر امر. But07۸‏ 
-5اكتب الكود التالي بعد ان تضغط على الزر مرتين: 


("Ugwg Maİ")Response.Write 


الامر السابق يقوم بكتابة اهلا وسهلا في المتصفح. 
-6اضغط على ۴5 لكي تقوم بعمل واط06 و استعراض للصفحة. 


وبالتالي نكون قد انشانا تطبيق ويب بلغة . ۲-۷8 ۸5۴.۴ كما يمكنك انشاء التطبيقات بواسطة 
7-S‏ A5P.NEبلغة‏ مCShar‏ ولکن لان موضوعنا یهتم بال 8251٥.٤1‏ اھsuا۷‏ فسوف نکتب تطبیقات 
الويب بلغة. VB.NET‏ 


بواسطة تطبيقات الويب فانك تستطيع ان تقوم بعمل صفحة ويب تعرضلك نظام التشغيل و اسم 
المستخدم و المدة الزمنية المستغرقة في تشغيل الجهاز والتحكم بالصور كالتكبير والتصغير وتحويل 
الصيغ وقلي الصورة وغيرها من الامور التي كنا نحلم بان نعملها على الويب. 

كما نعلم بان هذه التقنية جديدة وبالتالي فانك لن تجد مواقع كثيرة محانية تستضيف وتدعم هذه الصيغة 
والتي هي . ×ط5ه ولكن بعد البحث وجدت هذا الموقع الجيد الى .http://www.brinkster.com/ le x>‏ 
سجل في هذا الموقع لكي تستطيع تحميل ٥3١‏ املا صفحاتك الى النت وتعمل لها. ائم 

ولكن هناك مشكلة ولها حل وهي: ان الموقع السابق لا يدعم الكود المفصول , بمعنى اخر انه لا يدعم 
بان يكون كود الفجوال بيسك مفصول عن كود ال . 1۲۷1 والحل هو دمج الكودين في صفحة كود واحدة 
بامتداد . 5٥×‏ واذا دمجنا الكود السابق مع كود ال 1۲M;‏ فان الناتج هو الاتي : 


<% "Page Language="VB @%> 
<"script runat="server> 


(Sub Button1_Click(sender As Object, e As EventArgs 
("lgwg Yal")response.write 
End Sub 


<script/> 

<html> 

<head> 

<head/> 

<body> 

<"form runat="server> 

asp:Button id="Button1" oncl> 

<form/> 

<body/> 

<html/> 


فكما تلاحظون فان الکود معقد نسبيا كما ترون لمن لا يفهم في ا١1۲‏ 

ولذلك فان مایکروسوفت قدمت لنا محرر ۸5۶.۴۲ یدعی ×اMa†۲ Web‏ يقوم بدمج الکود بدون اي عناء , 
يمكنك تحميله من 46= .http://www.asp.net/Default.aspx?tabi ndex=48ta bid‏ 

حجمه ميغا وشوية . انصحکم بتحمیله لانه مفید جدا ویسیط ولا یحتاج الى شرح 


والسلا///////اام 


البريد الالكتروني انھ×-ع۴ 
يمكنك باستخدام تطبیقات الويب قي فیجوال ستديو .نت ان تنشئ تطبیق ویب يقوم بارسال رسالة 


الكترونية الى اي شخص تريد , والميزة هنا ان الارسال يكون بدعم ذاتي ولیس بدعم برنامج بريد كال 
)ooاt 0u‏ كما في مواقع الانترنت. 


ولكن قبل ان نقوم بكتابة الكود , هناك القليل من الخطوات والتي يجب ان تقوم بها: 


Properties .رiۃخ<lg‎ jıمıلJlب‎ lale طéضا‎ Default SMTP Virtual Server ةilخ‎ jag 115 , -1افتح‎ 

-2من خانة التبويب ككعع٤A۸‏ اضغط على. ۷ةاR‏ 

OK تم اض‡خط.‎ All exept the list beloW , رaخ|3-‎ 

-4الان شغل تطبیق ویب وتاکد من المتصفح شغال وانه لا توجد علامة على N0۲) هf؟ا| ٣٤۴‏ واضف زر امر 
واكتب الكود الاتي: 


"System. Web.Mail.SmtpMail.SmtpServer = "localhost 
("system.Web.Mail.SmtpMail.Send("x@x.com", "yQ@Qy.com", "the subject", "the body 


في الكود السابق استخدمنا خدمة ال 5۷1۲۶ والتي تاتي مع , 115 وتدعم ارسال رسائل البريد 
الالكتروني . اما أكئه١|اةء‏ ها فيقوم مقام الملقم او السيرفر. 


اما الدالة 58١٩۵‏ فتقوم بارسال الرسالة ولها 4 توابع: 

-1المرسل : تخيل ان بمقدورك التلاعب باسم المرسل . يعني ترسل رسالة لشخص معين و يكون 
اسم المرسل شخص انت تحدده 

-2المرسل اليه. 

-3عنوان الراسلة. 

-4محتوى الرسالة. 


9 الكلاس SMTPMail‏ يوجد في فضاء الاسماء انج“ والذي يوجد في فضاء الاسماء ۷٥‏ 


-5اضغط علی , ۴5 واضفط علی الزر , لن تری شیا ولکن بمجرد ان تتصل بالانترنت فان ال 115 يقوم 
بارسال الرسالة اوتوماتيكيا . 


معلومات عن المتصغفح 


يمكنك جلب معلومات عن متصفح الانترنت لديك , اضف زر امر واكتب الكود التالي-: 


("<br>" & Request.Browser. Type & " = Response.Write("Type 
("<br>" & Request. Browser.Browser & " = Response.Write("Name 
("<br>" & Request.Browser.Version & " = Response.Write("Version 
("<br>" & Request.Browser.Platform & " = Response.Write("Platform 
("<br>" & Request.Browser. Beta & " = Response.Write("Is Beta 


("<br>" & Request.Browser.Crawler & " = Response.Write("Is Crawler 

("<br>" & Request.Browser.AOL & " = Response.Write("Is AOL 

("<br>" & Request.Browser.Win16 & " = Response.Write("Is Win16 

("<br>" & Request.Browser.Win32 & " = Response.Write("Is Win32 

("<br>" & Request.Browser.Frames & " = Response.Write("Supports Frames 

("<br>" & Request.Browser. Tables & " = Response.Write("Supports Tables 

("<br>" & Request.Browser.Cookies & " = Response.Write("Supports Cookies 

("<br>" & Request. Browser.VBScript & " = Response.Write("Supports VB Script 
("<br>" & Request.Browser.JavaScript & " = Response.Write("Supports JavaScript 
("<br>" & Request.Browser.JavaApplets & " = Response.Write("Supports Java Applets 


صورة عامة :استخدمنا في الكود السابق الكلاس ائعuا۹ع۸‏ والذي يمكنك من جلب معلومات هامة , 
كالمتصفح وامكانياته , والكوكي واللغة واسم السيرفر وغيرها , ولكننا اليوم استخدمنا الکلاس 68۲0۷5٥۲‏ 
لنتعرفق على المتصفح الذي يستخدمه العميل . ١ء‏ اا٣‏ اما "<5>" فتعني سطر جديد في لغة. ا1١1۲‏ 


الخاصية : ٥م۲۷‏ وتعطيك اسم المتصفح و ورقم الاصدار. 

الخاصية : 2۳۴ل تعطيك اسم المتصفح. 

الخاصية : ١10ء۷6۲‏ تعطيك رقم الاصدار. 

الخاصية : 0۲۳|اها۴ وتعطيك اسم نظام التشغيل والذي يشتغل تحته المتصفح. 
الخاصية :ع8 تحدد اذا ما كان المتصفح ع86 او لا. 

الخاصية : ۲۷16۲ متعلق بمحركات البحث. 

الخاصية : ا۸0 وتحدد ما اذا كان العميل من عملاء شركة. 1ا۸0 

الخاصية : W١16‏ تحدد ما اذ كان نظام الكمبيوتر مبني على. ۷1١16‏ 

الخاصية : W١32‏ تحدد ما اذ كان نظام الكمبيوتر مبني على. ۷1١32‏ 

الخاصية :١٥۳ه۴۴‏ تحدد ما اذا كان المتصفح يدعم الاطارات او الفريمات. 
الخاصية : ٥ا2٠‏ تحدد ما اذا كان المتصفح يدعم الجداول. 

الخاصية :كع )مه تحدد ما اذا كان المتصفح يدعم الكوكيز. 

الخاصية: اما VBS‏ تحدد ما اذا كان المتصفح يدعم Jlلغة. VBScript‏ 

الخاصية: امأا)۷aSهل‏ تحدد ما اذا كان المتصفح يدعم لغة جافا سكربت. JSC‏ 
الخاصية : أعاممva۸هل‏ تحدد ما اذا كان المتصفح يدعم تطبيقات الجافا . 


Cookies jaSgكJ|‎ 


اوی 6 وک کر ف اا كي ال دو كا مةه هة السة و اة 
وغیرها . 


' "¥۷12 ۳€ 'نختبر ما اذا كان هناك کوکي باسم‎ 
If Request.Cookies("myname") Is Nothing Then 
Dim cookie As HttpCookie 

'ننشيء اسم للکوکي' 

("cookie = New HttpCookie("myname 

'نضع قيمة للكوكي' 

"cookie.Value = "hola 
(Response.AppendCookie(cookie 


"Label1.Text = "Cookie Written 

"اما اذا كانت الكوكي موجودة' 

Else 

" : Label1.Text = "Cookie already exists 
ORequest.Cookies("myname").Value & Label1.Text = Label1. Text 
End If 


كود بسيط جدا يقوم باستخدام ميزة الكوكي يقوم باستخدام الكوكيز. 
الأن أا مكلت الى الصفحة قى المرة الأدلى فض لك هنذة الرالة 


Cookie Written 
واذا دخلتها مرة تانية فستعرض لك هذه الرسالة‎ 


"Cookie already exists : hola" 


واحب ان اوضح بان قيمة الكوكي عuااة۷‏ ممكن تكون لون الخلفية او اسم الخط او لونه وغيرها. 


التشغفیر باستخدام M55‏ 

تستخدم خوارزمية 105 لتشفير الكلمات السرية , والميزة من هذه الخوارزمية انها غير قابلة لفك 
التشفير , أمC۲۷ع0‏ وبالتالي فانه من المستحيل سرقة الكلمة السرية حتى من مشرقف او مدير الموقع 
.ولكن تبقى قضية ال . ١أ9‏ ها فلو ادخل المستخدم الكلمة السرية كي يعمل ١‏ أ9ا فكيف للموقع معرفة 
ما اذا كانت الكلمة السرية صحيحة ام لا الا اذا قام بفك التشفير و مطابقتها بالاصل , وبما ان 105 غير 
قابلة لفك التشفير فهناك طريقة اخرى للتاكد من الكلمة السرية وهي ان يقوم الموقع بتشفير الكلمة 
السرية التي ادخلها المستخدم ومن ثم يقوم بمقارنة الشفرة بالشفرة المخزنة في قاعدة البيانات , فاذا 
كانت متطابقة فانه یقوم بال "وها والا فلا. 


الدالة التي تقوم بتشفير النص هي ١كة١٣ع†uامصmهC‏ والتي تقوم بتحويل البايتات التي تمثل النص الى 
مصفوفة بايتات , ولانها تحول بايتات النص فيجب اولا تحويل النص الى بايتات وذلك باستخدام الكلاس 
"۴F 8ENcodi9‏ لوالذي به الدالة عا8۷ع6 والتي تقوم بتحويل النص الى بايتات كما هو معلوم فان اصل 
البيانات مكون من بايتات 


اليكم كود التشفير باستخدام خوارزمية: ١155‏ 


االنض المراد اتشفيرة 

"!Dim txt As String = "Encrypt me 

'متغير من فئة بايت والذي سوف يمثل النص 

(Dim Bytes As Byte 

' الكلاس الذي يستخدم لتحويل النص الى بايتات 

(Dim encoder As New UTF8SEncoding 

MDS Class' 

(Dim md5Hasher As New MDSCryptoServiceProvider 

' عملية التشفير : تحويل النص الى البايتات التي تمثله - تحويل بايتات النص الى مصفوفة بايتات 
((Bytes = md5SHasher.ComputeHash(encoder.GetBytes(txt‏ 


Imports System.Security.Cryptography 
Imports System. Text 
Imports System.Data 


ارحو من اهل الخبرة ان يساعدوننا فيها . 


سرقة الصفحات وام aاscr‏ 
بصراحة لم اجد ل و١أمة5>۲ترجمة‏ مناسبة , ولكن معناها هو الاقتباس من صفحة معينة . 


قم بالاتي: 
-1 اضف زر امر. 
-2اضف الاداذاة6۲]أا والتي سوف تعرض فيها الصفحة 
-3اكتب الكود التالي: 
'متغیر من فئة webclient‏ 
(Dim wc As New WebClient‏ 
'القيمة المسترجعة من الدالة aة0‏ 020ا" (0w‏ على شكل بايتات 
Dim bytes() As Byte‏ 
("bytes = wc.DownloadData("http://www.asp.net‏ 
" تخويل البايتات الى .سلضلة تضية 
(Dim objUTF8 As New UTFSEncoding‏ 
Dim html As String‏ 
(html = objUTF8.GetString(bytes‏ 
' عرض الصفحة 
Literal1. Text = html‏ 
ولا ن 


Imports System.Net 
Imports System. Text 


اهم شيء في الكود السابق هو الدالة taة2a00ها”‏ س00 والتي تقوم بتحميل بيانات الصفحة المراد 
عرضها على شكل بايتات , ولكي نجعل الصفحة قابلة للقراءة فاننا نستخدم الدالة 66۲5۲١١9‏ والتي 
تحول البايتات الة سلسلة نصية S†٣١! ٣9‏ 


ملاحظة:لو استبدلت الاداة اجاع ازا بالاداة ٠6۴×80>‏ فسوف يعرض كود ال ا1۲M‏ للصفحة 


المدة الزمنية اللتي استغرقها السيرفر منذ تشغيله 


يمكنك معرفة معلومات كثيرة عن السيرفر الذي يستضيف موقعك . واذا كان السيرفر LocalHost lle‏ 
فهذا يعني ان السيرفر هو الجهاز الذي تشتغل عليه. 


الكود التالي يوضح كيفية معرفة المدة الزمنية التي استغرقها السيرفر من اخر مرة تم اعادة تشغيله 
فيها . يعني من باب اللقافة. 


اضف زر امر واكتب الكود التالي: 


(TimeSpan.FromMilliseconds(Environment. TickCount = Dim ts As TimeSpan 
_ &" ,days " & ts.Days & ":server has been running for Response.Write("The Web 


(".minutes " & ts.Minutes & " and" & " ,hours " & ts.Hours 


الكلاس ٣€5P3١‏ ۲1 يفيدك في معرفة مدة زمنية معينة , ولان u٣‏ ه)٣‏ )ءا ترجع بقيمة المللي ثانية فاننا 
استخدمنا الدالة كلك”هععءiااM۷İ‏ ص۴0 لنحسب مدة زمنية تحسب بالمللي تثانية . وكما نعرف فان 

ick c0ur‏ تفيدك في معرفة المدة الزمنية التي استغرقها النظام , وبما اننا ننشئ تطبيقات للويب فان 
النظام هنا سيكون السيرفر 

واخيرا نستخدم الخواص Secondes , Days , Hours , Minutes‏ لمعرفة الزمن بالتحدید 


Uploading 

اذا اردت نقل ملف الى ملقم 56۲۷۴۴۲ فقم بالاتي: 

-1اضف زر امر واضف الاداة ۴٤۱۵‏ ٤ا۴‏ من قسم ا٧1۲‏ الموجود في مربع الادوات. 

-2قم بالضغط على الاداة ۴٤۱۵‏ ٥ا۴‏ باليمين واختر , Run As Server Control|‏ تم غير الخاصية 10 للاداة 
File aJIFile Field‏ 


-3اضف الكود التالي تحت زر الامر: 


'مقرقة مسار الحلف 


Dim path As String = file.PostedFile. FileName 
'استخراج اسم الملف من المسار‎ 
(Dim name As String = System.IO.Path.GetFileName(path 
'عملية نقل الملف الى السيرفر‎ 


(file.PostedFile.SaveAs("D:\" + name 


-4قم بالتحويل الى محرر ال 1۲۷1 لتقوم باضافة الكود التالي: 


<"runat="server "encType="multipart/form-data "form id="Form1> 


ملاحظات 
* الاداة ۴٥۱١‏ عاأ۴ تفيدك في عملية اختيار الملف . 
*الدالة e2۳۴‏ ا۴ اع تقوم باستخراج اسم الملف من المسار . 


التنصفح |الذنکكéي Smart Browsing‏ 
يمكنك اضافة خاصية التصفح الذكي لصفحتك عن طريق السطر الاتي: 


Page.SmartNavigation = True 


وهذه الخاصية بها 3 ميزات: 

-1اذا سويت )ة8 للصفحة فانها ما راح تتحمل مرة تانية , وانما تعرض بسرعة. 

-2اذا رحعت الى الصفحة فانك لن تفقد موقعك الذي كنت فيه , اي انك لو كنت في وسط الصفحة 
وتركتها ثم رجعت اليها فانك سترجع الى وسط الصفحة وليس بدايتها. 

-3اذا كنت مركز على اداة فانك لن تفقد التركيز عليها . 


Web Service بڀglJ|‎ تlمدخ‎ 


عن طريق udi0.NE۲اS‏ ام۷isu‏ يمكنك انشاء خدمات للويب والتي تساعد العمیل ٣ا‏ في جلب بيانات 
من خلال هذه الخدمة . 

وخدمات الويب لا تعتمد على نظم التشغيل او لغات البرمجة . يعني تسلك معاك حتى لو كان نظامك 
لینکس او ویندوز او غیره. 

والمثال التالي يوضح كيفية انشاء خدمة ويب , سنقوم بالاتي: 


-1انشاء خدمة ويب . جهة |لسıرر Server Side‏ 
-2انشاء تطبیق ویب او ویندوز (کما تحب) . جهة العميل Client Side‏ 
-3اختبار الخدمة عن طريق تطبيق الويندوز او تطبيق الويب. 


اولا: خدمة الويب 5€۲۷۵€۲ 


-1سنقوم الان بعمل خدمة ويب مبسطة , شغل الفیجوال ستودیو .نت . من New P٣٥٤٤‏ اختر 
WebService1 wlll gxgASP.NET Web Service .‏ 


-2اضغط على الفورم مرتين , ستظهر لك تعليمات بالاخضر . وفي اخر 3 سطور كود بسيط ولكنه على 
شكل تعليمات , اذن امسح العلامة ' لكي تزيل اللون الاخضر . ويصبح كود فعال . 


Public Function HelloWorld() As String <()(WebMethod> 
"HelloWorld = "Hello World 
End Function 
Hello Word الكود السابق يمثل دالة مبسطة بسيطة جدا تعيد الجملة.‎ 
-3اضغط على ۴5 لكي تجرب خدمة الويب التي صنعتها . اتوقع انك ما راح تفهم شيء اذا شفت‎ 
الصفحة لانك قاعد تتعامل مع لغة برمجة (وبالاصح لغة توصيف البيانات) اسمها . ۷1× على اية حال‎ 
ثم , v0ke"ا الان سترى القيمة المسترجعة باللون الاسود والتي هي‎ ۳eاا0wW‎ W0۲1 , اضغط على‎ 
Hellow World . 
ملاحظة: احفظ عنوان خدمة الويب على الاكسبلورر . فمتلا العنوان عندي هو:‎ 
http://localhnost/WebService1/Service1.asmx 


لاحظ ان خدمة الويب تنتهي بامتداد , ×5۳ه وان تطبيق الويب ينتهي بامتداد. ×مئج 


WebService1 „ml Il كعaرشم -4احفظ‎ 


الى الان لم نفعل شيء مشوق ويدعو الى الحماس , ولكننا سنرى الان ما فائدة خدمة الويب. 
تانیا:- تطبیق الویندوز ع اا) 

Windows Application .yiخl‎ New Project ja1- 

Add Web Reference .»ڌi‎ , ùınıJlı Windows Applicatio0¬1 JJع‎ طغض›ضl‎ Solution Explorer jم2-‎ 


-3اكتب عنوان خدمة الويب التي عملناها و الذي ذكرتك بان تحفظه , تم اضغط على السهم الاخضر , 
تم اضغط ADD Reference .JJE‏ 


Link the client to the server .ةnدخJlıب الان ربطنا التطبيق‎ 


esti ٣9 تالتا: الاختبار‎ 


-1في تطبيق الويندوز الذي انشأناه الان , اضف زر امر واكتب الكود التالي-: 


'عملية ربط التطبيق بخدمة الويب برمجيا 
(Dim x As New localhost.Service1‏ 
عرض رJlwة Hellow World‏ 
(MsgBox(x.HelloWorld‏ 


2- اضغط ۴5 , ثم اضغط على الزر وسترى انه سيعرض لك رسالة ل۷0۲1 ٠١ا6١‏ والتي انشأناها في 


خدمة الويب السابقة . 

اذن نفهم من الدرس ان خدمات الويب تستخدم من العملاء اا٣‏ للاستفادة من حاجة معينة كدرجات 
الحرارة المئوية و اسعار البضائع وارقام الرحلات وغيرها من التطبيقات المفيدة فعلا . 

كما احب ان اذكر باننا انشانا خدمة ويب من دون كتابة سطر واحد من لغة التوصيف ا×× . 

ارجو بان يكون الدرس مفيد , وسنتعلم في الدرس القادم انشاء الله كيفية عمل برامج او تطبيقات 
لاجهزة الجوال عن طريق فيجوال بيسك .نت 


آلشوال ال اة 


كما نعلم بان الرياضيات عنصر اساسي في البرمجة . يعني اذا كنت مبرمج فيتوجب عليك ان تكون فاهم 
في الرياضيات و دوالها. وسنستعرض مجموعة بسيطة من الدوال الرايضية. 


لاحظ انه يجب عليك استدعاء المكتبة 


Imports System.Math 


الدالة : كاه ترجع القيمة المطلقة لعدد معين 


((MsgBox(Abs(-6 
((MsgBox(Abs(6 


سيكون الناتج 6 في كليهما . لان القيمة المطلقة تقلب الاشارة السالبة الى موجبة . وهذه تفيدنا في 
قياس الطول و العرض لان المسافة دائما بالموحب. 


الدالة : R0٣٩‏ تقوم بتقریب العدد 


((MsgBox(Round(2.49 
((MsgBox(Round(2.51 


في الاولى سينتج 2 لان .49 اقل من النصف, وفي الثانية سينتج 3 لان .51 اكثر من النصف. 


سيكون الناتج 16 , لاننا ضربنا العدد 2 في نفسه 4 مرات. 


الدالة : ٥05‏ تعطيك جيب تمام زاوية تقاس بنظام الراديان. 


سيكون الناتج قريب من السالب واحد. 
ولكن باستخدام llلدlلö: Round‏ 


سیکون الناتج -1 تماما. 


الدالة : S١‏ تعطيك جيب الزاوية 


الدالة : ۲4۸١‏ تعطيك ظل الزاوية 


الدالة : وها تعطيك اللوغاريثم الطبيعي و ليس العشري 


((MsgBox(Pow(2, 4 


MsgBox(Cos(3.14)) 


(((MsgBox(Round(Cos(3.14 


(((MsgBox(Round(Sin(3.14 


(((MsgBox(Round(Tan(3.14 


((MsgBox(Log(2.7 


احب فقط ان اذكر بان الدوال السابقة لن تعمل الا بكتابة هذا السطر في بداية صفحة الكود لكي نقوم 
باستدعاء الدوال الرياضة: 


Imports System.Math 


التاريج و الوق 


التاريخ و الوقت 


ا فة رة على الداك اة فف فال ك دك انا دا اة 
الوقت . و هي دوال سهلة و مفيدة. 


الدالة : 0W‏ تعطيك الوقت و التاريخ الحالي. 


(MsgBox(Now 


الدالة : رةك »)معمW‏ تعطيك رقم اليوم (من 1 الى 7 ) لتاريخ معين. 
ولها تابعين: 
الاول: التاريخ الذي تريد رقم يومه. 


((MsgBox(Weekday(Now, FirstDayOfWeek.Saturday 


فمثلا في الكود السابق ستعطيك الدالة الرقم 2 اذا كان اليوم هو يوم الاحد , او الرقم 3 اذا كان اليوم هو 


DateSerial :ةJlıJl‎ 


((MsgBox(DateSerial((Now.Year), (Now.Month), (Now.Day) + 1000 


الكود السابق يعطيك التاريخ بعد 1000 يوم من الان . 
هذه الدالة لها 3 توابع ( السنة , الشهر , اليوم ) ثم اضفت 1000 يوم لكي تعطينا التاريخ بعد 1000 يوم . 


الدالة : DateDi۴۴‏ تعطيك الفترة بين تاريخين محددين. 


Dim date1 As Date = #3/30/2000# 
("MsgBox(DateDiff(DateInterval.Day, date1, Now). ToString + " day 


الدالة DateDiff‏ لما 3 توابع: 

الاول: نوع التاريخ يوم , شهر , سنة 
الثاني: التاريخ الذي تريد طرحه 
الثالث: التاريخ الذي تريد ان تطرح منه 


الدالة : DatePart‏ تجزی تاریخ معین. 


((MsgBox(DatePart(DateInterval. Month, Now 


التابع الاول : الجزء الذي تريده من التاريخ . 
التابع الثاني: التاريخ الذي تريد جزءا منه . 


تاريخ اليوم 


لمعرفة تاريخ اليوم , عليك وضع زر امر على الفورم ومن ثم كتابة الكود التالي: 


((MessageBox.Show("Today's Date is: " + DateTime.Now. ToShortDateString 


الدالة "0۷W‏ و التي يتيحها لك الكلاس ع11۳عاة0 تعطيك تاريخ اليوم . 


ھذوځایتہ 


دوال متنوعهة 
الدالة : R۸٩۵‏ تقوم بانشاء رقم عشوائي بين عددين. 
(MsgBox(Rnd() * 5‏ 


الكود السابق يقوم بانشاء رقم عشوائي بين العدين 1 و 5 


واذا اردت ازالة الارقام العشرية فعليك باستخدام الدالة. Round‏ 
((MsgBox(Round(Rnd() * 5‏ 


و اذا اردت عدم تكرار الرقم العشوائي فعليك باستخدام الدالة , م17٣0‏ ك٣ R2‏ ولكن لا يمكنك استخدام 
الدالة ١٣ا0‏ لانها ستقرب العدد و بالتالي سيتكرر لديك الرقم العشوائي. 


ORandomize 
(MsgBox(Rnd() * 5 


احب ان اذكر فقط بانك اذا اردت استخدام الدالة ۸01٣٩٧۵‏ فعليك باستدعاء دوال الرياضيات. 


Imports System.Math 


الدالة : اام" تقوم بتشغيل برنامج معين. 


(Shell("notepad.exe", AppWinStyle.MaximizedFocus 


التابع الاول : مسار البرنامج الذي تريد تشغيله. 
التابع الثاني : كيفية فتح النافذة كبيرة , صغيرة , عادية , مخفية 


الدالة : 11۴ اليك المتال. 


(("MsgBox(IIf(5 = 4, "right", "wrong 


التابع الاول : اي عبارة . و في هذا الكود و ضعت العبارة 5 تساوي 4 . و هي عبارة خاطئة. 
التابع الثاني : ما ستعيده الدالة اذا كانت العبارة صحيحة. 


التابع الثالت : ما ستعيده الدالة اذا كانت العبارة خاطئة. 


وطبعا راح تكون النتيجة ۷۲٠١9‏ لان العبارة خاطئة . ولكن لو كانت العبارة 5 تساوي 5 لكانت النتيجة 
right .‏ 


الدالة : E۷٣۵۸‏ تعطيك متغيرات نظام التشغيل اسم المستخدم , اسم الجهاز , مسار مجلد الویندوز 
... الخ 


((MsgBox(Environ(27 


الكود السابق يعيد اسم المستخدم . يمكنك ان تجرب الاعداد من 1 الى 30. 


(("MsgBox(Environ(" TMP 


هذا الكود يعطيك مسار مجلد ال. م٣6۳‏ 


الدالة : م86 تقوم باصدار صوت منبه من السماعات اذا كان لديك كرت صوت او من داخل الجهاز اذا لم 


يكن لديك. 


Beep 


تشغيل البرامج الخارحية 


("Ssystem.Diagnostics.Process.Start("c:\somepath\somefile. txt 


|Jlكjil Application‏ 
الكائن ٣٥ااهiاممA‏ هو البرنامج الذي تتعامل معه , فمتلا: 


Dim x As Application 
Ox.EXit 


الكود السابق يقوم باغلاق برنامجنا وذلك باستخدام الوظيفة ×۴ 


طبعا مثالنا السابق بسيط جدا على استخدام الكائن ١٥ةءامم۸‏ , وسوف نتوسع باذن الله قريبا في كل 


الفورم الشفافة 
في البداية اعتذر على التاخير الذي حصل وذلك لمشاكل التي حصلت لجهازي. 


كود اليوم بسيط للغفاية . ولكنه جميل. 
اذا اردت بجعل الفورم شفافة فم عليك الا ان تكتب السطر التالي-: 


Me.Opacity = 0.5 


طبعا هذه الخاصية تحوي الارقام التي بين الصفر و الواحد . وتعني اللاشفافية . فلو وضعت القيمة 0 
فلن ترى الفورم والعكس صحيح 


تقديم الفورم على النوافذ الاخرى 
اذا اردت ان تجعل الفورم فوق النوافذ الاخرى فما عليك الا كتابة الكود التالي-: 


Me.TopMost = True 


اما اذا اردت العكس فاجعل القيمة 


False 


توليد ارقام عشوائية 


(MsgBox(Rnd() * 10 


هذه الدالة تقوم بتوليد ارقام عشوائية . وذلك بان تقوم بضرب الدالة في اي رقم تريده لكي ينتج لديك 
رقم عشوائي موجب ولا يزيد عن هذا الرقم 


(Text To Speach)مۈنلک‎ ”Jل| تحويل النص‎ 


اذا اردت ان تسمع ما تكتب , فعليك اتباع الخطوات التالية: 

Add Reference .JJEeE طخض›lا‎ Project ةnئlaلll -1من‎ 

-2من علامة التبويب K0M‏ اختر الاداة , Microsoft Direct rext o Speach‏ تم اضغط على , اec‌اSe‏ تم 
اضغط. OK)‏ 

-3اضف زر امر 810۸ ومریع نص. ×80 ۲e×t‏ 

-4اکتب هذا الکود: 


(Dim x As New ACTIVEVOICEPROJECTLib.DirectSS 
(x.Speak(TextBox1. Text 


احب ان اوضح اننا في البداية اضفنا مكتبة تحويل النص الى كلام . ولو راجعت Solution Explorer J|‏ 
لوحجدت في ACTIVEVOICEPROJECT Lib .رصڏiaلl Reference J|‏ 


بكل بساطة نستخدم الدالة ةعم والتي لها تابع واحد وهو النص التي تريده ان ينطق. 
ويمكنك التحكم في سرعة النطق . وذلك باستخدام الخاصية . أع٥عمم؟‏ 


x.Speed = 100 


فلو جعلت الرقم 200 فستلاحظ ان النطق ابطا مما هو عليه في 100 . 


Windows Service jaدڌiıgلJ|l‎ تlمدخ‎ 

خدمات الويندوز هي عبارة عن برامج تشتغل في الخلفية 8B3٤)6۲01 ١١‏ و تستخدم في عدة امور ككتابة 
ملفات السجلات 9٠ا‏ و مراقبة البرامج وغيرها , و وميزتها انها تشتغل قبل دخول المستخدم للويندوز . 
يعني قبل ال. 1١‏ 9٥ا‏ 

ولانشاء خدمة ويندوز خاصة بك , قم بالاتي-: 

Windows Service .yizl New Project ja1- 

-2اضف اداة 8۲" |۲1 واجعل قيمة اة1۸۲6۲۷ تساوي 10000 (عشر تواني) تم ادخل الى صفحة الكود . 
لاحظ ان هناك حدتان هما S3۲‏ 00 و يستخدم عند تشغيل الخدمة , و الحدث مS0‏ 00 ويستخدم عند 
ايقاف الخدمة . 

-3اضف هذا الكود ضمن حدث اداة ال: ۲1٥صآًآ‏ 

("Dim y As New I1O0.StreamWriter("C:\x.txt 


(y.Write(Now. ToString 
QOy.Close 


الكود السابق يقوم بكتابة الوقت والتاريخ لملف يدعى. ا<ا.× ففي البداية استدينا اlنلکكJkۈاس Stream Write‏ 
لكي نستخدم الدالة ع۷ والتي تقوم بالكتابة الى ملف معين . الدالة 0W‏ تعيد الوقت والتاريخ الحالي 


لاحظ انه يجب ان نغلق الملف في النهاية بالدالة. مكاZ€‏ 


اضف الى الحدث 052١‏ الكود التالي لتفعيل المؤقت عند تشغيل الخدمة: 


Timer1.Enabled = True 
تم اضف الكود التالي الى الحدث م50١0 وذلك لابطال المؤقت عند ايقاف الخدمة:‎ 


Timer1.Enabled = False 


انتهينا الان من برمجة خدمة الويندوز وبقي علينا مشروع تثبيت الخدمة على الويندوز. 


-5اخرج الان من صفحة الكود واذهب الى صفحة التصميم [١9أكع0]‏ ط1.۷عvicامS‏ تم اضغط باليمين في 
اي مکان واختر . e۲‌ااھtئہ1 Add‏ ستظهر لك اداتين , اضغط على الاداة 1١ع‏ ااقأئہآعا۷اهS‏ وغير الخاصية 
MyService . ىلاDispاay Name‏ وهذا سیکون الاسم الذي ترى به خدمتك الجديدة في الویندوز. 

تم اضغط على الاداة 1١ع‏ ااةاsمss1مServiceProc‏ وغير الخاصية Accoun†‏ الى) mعystكاaعL0ا‏ لکي نقوم 
بتشغيل الخدمة على الجهاز الحالي. 

-6انشء ملف × تحت هذا المسار 

c:\x.txt 

من قائمة اا8 اضغط على ١٥ااuام؟‏ 4|األاB‏ لتقوم بعمل بناء و تجميع لخدمتك . 

الى الان لم تثبت الخدمة على النظام. 


Start - Programs - Microsoft Visual Studio .NET - Visual Studio .NET Tools - Visual ةمilؤ -7من‎ 
Studio .NET Command Prompt . 


اذا کان مسار الملف التنفيذي الذي انشاته للخدمه هو 
Window sService 1 .exe‏ |\WindowsService1\bin|]:(فاکتب‏ الامر الاتي تحت سطر الاوامر: 


installutil D:\WindowsService1\bin\WindowsService1.exe 


لاحظ ان الامر السابق يقوم بتثبيت الخدمة فعليا تحت نظام الويندوز. 
-8لاختبار الخدمة , من Pane‏ |اContro‏ اضغط على , Administrative Tools‏ تم Services‏ تم ابحتث عن 


خدمة MySe vice‏ اضغط علیها بالیمین تم اضغط على. S†2۲٤‏ 
الان كل عشر تواني ستكتب الخدمة الوقت والتاريخ في الملف . »ا.×|:٥‏ 


Mobile Application Jlgجل| تطبيخات‎ 


عن طريق ۴۲. يمكنك عمل برامج او تطبيقات لاجهزة الجوال من دون اي خبرة في لغات W1‏ او 
ا 1وغيرها . بل تعملها بلغتك المفضلة سواء كانت صCSar Visual Basic.NET .g|l‏ 


ولكن قبل كل شيء عليك تحميل ادوات البرمجة والتي ستستخدمها في عمل التطبيقات من هذا 
الرابط: 


http ://www.microsoft.com/downloads/details.aspx?Fa milyId=AE597F21-B8SE4-416E-A28F- 
B124F41F9/68&displaylang=en 


واللّه يعينك لان حجمها 4 ميغا تقريبا ولكن عليك ان تحملها باي طريقة لاننا بصراحة لم نكن نحلم ايام 
فيجوال بيسك6 عمل مثل هذه الاشياء . 


اذا انتهيت من التحميل , ابدا بتثبيت الملف في الجهاز . واذا انتهيت شغل الفيجوال ستوديو وتاكد من ان 
مشروع الجوال ظاهرة لديك كما في الصورة التالية: 


اضغط على Mobile Web App|icai0٥۸‏ طبعا كلمة اع لان البرامج سوف تشتغل عن طريق الانترنت . 


يعني تحمل صفحتك والتي سوف تحتوي على التطبيق الى موقع يستضيف ملفات ×5 كموقع 
cm.اعinkstاbومن‏ تم تتصفح موقعك عن طريق النت باستخدام خدمة الواب . 


اذن الشروط هي: 
-1ان يكون الجوال يدعم خدمة الواب. 
-2ان يكون الموقع يدعم هذ النوع من التطبیقات 5ک إ€Brinkst‏ 


بعد ان تفتح بيئة التشغيل لديك ابدا مشروع جديد ومن Mobile Web Applicai0¬ pi‏ 
لاحظ ان عنصر جديد اضيف لصندوق الادوات بlسwم.‏ msڵF0 Mobile Web‏ 

اضف زر امر الى الفورم وذلك باضغط على الزر مرتين تم سحبه الى الفورم. 

اضغط الان على الزر مرتين لتفتح صفحة الكود , واكتب الكود الاتي: 


("Response.Write("helo Mr Mobile 


اضغط ۴5 كي تجرب التطبية 
اذا ضغطت على الزر فسيكتب لك رسالة 


helo Mr Mobile 


بقي عليك تحميل صفحتك الى موقع ومن تم عليك بالاشتراك في خدمة الواب سيرفس من شركة 
الاتصالات, بعد ذلك يمكنك اختبار تطبيقك على جهاز الجوال وذلك بالدخول للصفحة التي حملتها الى 
الموقع 


وما اتوقع انك تفكر بالرجوع الى فيجوال بيسك6 بعد كل هذه الخدمات المذهلة 


واذا في اي سؤال انا بالخدمة 


تشغیل الاصوات عن طریق دوال ۸۲1 
بصراحة لم اجد طريقة مناسبة غير معقدة في فيجوال بيسك .نت تمكننا من تشغيل الاصوات . 


ولكني تذكرت الدالة ٣٩‏ ا0؟۷ةا۴ ”١ء‏ والتي كنا نستخدمها في ۷86 لتشغيل الاصوات و سنستخدمها ان 
شاء الله في ۷8.۴۲ ايضا . 

و في المتثال التالي سنتعلم: 

-1كيفية استخدام دوال ال ۸۴1 و الثوابت في. ۷8.N۴۲‏ 

-2كيفية تشغيل الاصوات. 


اتبع الخطوات التالية-: 

Windows Application .Eaرم‎ lدبl1-‎ 

-2اضف زر امر وادخل على صفحة الكود. 

-3يجب ان نصرح اولا عن الدالة , ٣٩‏ uا0؟۷ها۴ل"ء‏ وذلك ضمن الکلاس. ۴۵۳۳1 تحت السطر الاتي 
مباشرة: 


Inherits System. Windows.Forms. Form 


اكتب هذا التصريح: 


_ "Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA 
ByVal IpszSoundName As String, ByVal uFlags As Long) As Long) 


تم اضف هذا الكود والذي يصرح عن |لثابٽت: Constant‏ 


H1& = Const SND_ASYNC 


-4اضف الكود التالي ضمن زر الامر لكي تقوم بتشغيل الصوت مباشرة: 


(sndPlaySound("d:\x.wav", SND_ASYNC 


الدالة snd PاayS0u r٩‏ لها وسیطین: 

-1مسار الملف الذي تريد تشغيله. 

-2كيفية التشغيل : يعني هل تريده ان يكرر الصوت او ان يقوم بتشغيله مرة واحدة فقط . يعني خيارات 
اضافية , ويمكنك ان تجعل هذه القيمة صفر ليقوم بتشغيل الصوت مرة واحدة. 


واذا اردت معلومات وافية عن دوال ال ۸۲1 فراجع هذا الموقع المشهور لدى مبرمجي الفيجوال بيسك 
http://www.allapi.net‏ 


واريد ان اوضح نقطة وهي انه بامكانك تشغيل الاصوات عن طريق هذا الكود 


("Ssystem.Diagnostics.Process.Start("d:\x.wav 


ولكن هذا الكود يقوم بتشغيل برنامج لتشغيل الصوت ولا يقوم بتشغيل الصوت من برنامجك . 


Msgbox , Inputbox jıنiJlدلll‎ : الادخال والاخراج‎ 


اولا الدالة: >0 8٤uمم1‏ تطلب هذه الدالة من المستخدم ان يقوم بادخال بيانات. 


Mm MM 


(InputBox("please enter your name", "name", System.Environment. UserName. ToString 


الوسيط الاول :النص الذي يوضح للمستخدم ما يدخله. 
الوسيط الثاني: عنوان مربع الادخال. 


الوسيط الثالث : هذا الوسيط لم يكن موجودا في , ۷86 وهو ان تقوم بكتابة بيانات تتوقع ان المستخدم 
سوف يكتبها . فمثلا الكود السابق يطلب من المستخدم كتابة اسمه , وفي هذا الوسيط كتبت الكود 
الذي يقوم بالكشف عن اسم المستخدم . فعلا وسيط رائع للغاية. 


الوسيط الرابع: موقع مربع الادخال في الشاشة. (۷,×) 


MsgBox :öJlدJl|‎ lili 


الدالة Ms980>‏ عكس الدالة , ×80ام"1 فهِي تقوم بعرض بيانات للمستخدم 


("MsgBox("helow my friend", MsgBoxStyle.Information, "helo 


ولها 3 وسائط: 

الاول: محتوى الرسالة. 

الثاني: نوع الرسالة معلومات . تحذير , مساعدة , .... الخ 
الثالث: عنوان الرسالة . 


Pointers تlرشؤملll‎ 


أذ أت وال م تک کن فن رى فال مك ان اا ف ال كرات واا د 
فوا فن فذن الحوا كك كاك تفخو م م الكامل م هل هتو السو كن 
الأضذارات السابقة: 

اعتقد ان هذا الموضوع ليس غريبا على مبرمجي السي و السي++ . و هو موضوع شيق ولكنه ليس 
سهلا و يكون خطير احيانا بسبب انه يتعامل مع الذاكرة مباشرة مما يؤدي حيانا الى اغلاق البرنامج او 
اويندوز اذا تم التعامل معها بشكل خاطى . 


على العموم سنقوم بعمل برنامج يقوم بعكس الوان صورة معينة 11۷8۲5۵8 و قد قمنا بعمل هذا الكود 
مسبقا و لكن باستخدام الدالتين كاع×أ۴اع , كام×۴İامS‏ و اللتان يلاحظ عليهما البطء . اما اليوم فسنتعلم 
كيف نعكس الوان الصورة بالتعامل مع المؤشرات و الذاكرة ۸4١۷‏ مباشرة و ستلاحظ الفرق الشاسع في 
السرعة . 


في البداية اضف زر امر و مربع صورة . 


قم بالاستدعاء الاتي 


Imports System.Drawing.Imaging 


ثم اكتب الكود التالي : 


' يحمل هذا المتغير الصورة الموجودة في مربع الصورة 
Dim Bitmap As Bitmap = New Bitmap(PictureBox1.Image)‏ 
' انشاء مستطيل بنفس مساحة الصورة 
Dim Rect As New Rectangle(0, 0, Bitmap.Width, Bitmap.Height)‏ 
' يحمل هذا المتغير بيانات عن صورة معينة 
Dim BitmapData As BitmapData = New BitmapData()‏ 
تقوم هذه الدالة باغلاق مساحة معينة من الصورة ولها 3 توابع 
1 الاول : المساحة التي تريد اغلاقها من الصورة ليتم التعامل معها في الذاكرة مباشرة 
الثاني : نوع الاغلاق و قد اخترنا منع الكتابة على الصورة 


الثالتث : تحديد نوع تنسيق الصورة و قد اخترنا النقطية 
1 و بالتالي اصبح هذا المتغير يشير الى بيانات الصورة في الذاكرة 
BitmapData = Bitmap.LockBits(Rect, ImageLockMode.WriteOnly, _‏ 
Bitmap.PixelFormat)‏ 
١‏ عرفنا هذا المتغفير من نوع المؤشرات 
Dim pixels As IntPtr‏ 
تقوم هذه الدالة باعطائك العنوان لاول نقطة في الصورة في الذاكرة 
pixels = BitmapData.ScanO0()‏ 
ر يمنحك هذا الكلاس مجموعة من الدوال تمكنك من القراءة و الكتابة في الذاكرة 
Dim M As System.Runtime.InteropServices. Marshal‏ 
Dim X, Y, C, O As Integer‏ 
Dim W As Integer = Rect. Width‏ 
Dim Cir As Color‏ 
For Y = 0 To Rect.Height‏ 
For X= O0ToW -1‏ 
حساب موضع النقطة في الذاكرة 


1 موضع النقطة هو : 4 * عرض الصورة * رقم الصف الذي به النقطة * 4 + رقم العمود الذي 
به النقطة 
1 لاحظ ان الرقم 4 هو بسبب ان الصورة نقطية و ان كل نقطة في الذاكرة تخزن في اربع 
وحدات في الذاكرة 
O = CInt((4 * W * Y) + (4 * X))‏ 
تقوم هذه الدالة بقراءة بيانات معينة من الذاكرة 
1 اتابع الاول: العنوان الذي يشير الى الصورة في الذاكرة 
1 التابع الثاني : عدد الوحدات التي تريد ان يتم اضافتها الى العنوان الاساسي للصورة ليتم 
قراءة البيانات التي به 
C = M.ReadInt32(pixels, O)‏ 
تحويل اللون من عدد صحيح إلى كائن لون 
Cir = Color.FromArgb(C)‏ 
ا عكس الوان الصورة 
Cir = Color.FromArgb(ClIr.A, 255 - Clr.R, _‏ 
CIRG, 255 = CEB)‏ = 255 
تحويل كائن اللون إلى عدد صحيح 
C = Clr.ToArgb‏ 
تخزين اللون المعكوس في الذاكرة 
التابع الثالت لهذه الدالة هو البينات التي تريد كتابتها في العنوان المحدد 
M.WriteInt32(pixels, O, C)‏ 
Next‏ 
Next‏ 
١‏ فك الاغلاق الذي تم في الذاكرة للصورة 
Bitmap.UnlockBits(BitmapData)‏ 
PictureBox1.Image = Bitmap‏ 
PictureBox1.Refresh()‏ 
End Sub‏ 
End Class‏ 


ستلاحظ فرق هائل في السرعة بين هذا الكود و الكود السابق . 


View Tree öةرجشiلl‎ öادا‎ 


سوف نتعلم اليوم كيفية التعامل مع الاداة المسماة ب Wعأ۷ ١۲€٤‏ , 


اولا : اضف الاداة ۷ا۷ ۲۲۴٥‏ الى الفورم . 

تانيا اضف |لادlة Imagelist‏ . 

تالتا اضف صورتين الى الاداة 1ائ اeقة"]‏ . 

رابعا اضاف الكود التالي في حدث تحميل الفورم : 


Dim i As Integer 
Dim J As Integer 


With TreeView1 

' اضافة الخطوط التي توصل جميع عناصر الشجرة 

ShowRootLines = True. 

' اضافة علامات الموجب و السالب و التي توضح بان تمة عناصر موجودة او لا 

ShowPlusMinus = True. 

'اضافة الصور الى عناصر الاداة و التي قد اضفناها من قبل للاداة المسماة لستة الصور 
ImageList1 = ImagelList.‏ 

End With 


i=1 


40 For i = 1 To 

'اضافة عناصر رئيسية للاداة و من تم تسميتها 

(i. ToString & "nodp As New Windows.Forms. TreeNode("Node Dim 
(TreeView1.Nodes.Add(nodp 


For J = 1 T04 

(i. ToString, 1, 1 & "Windows.Forms. TreeNode("SubNode Dim nodc As New 
(nodp.Nodes.Add(nodc 

Next 

Next 


MultiThreaded »مlgملJ|l تعدد‎ 


البرامج المتعددة المهام لها القدرة على اداء عدة عمليات في نفس الوقت . فمتلا اذا اراد المستخدم 
من البرنامج فتح ملف كبير الحجم و عملية الفتح هذه تستغرق وقتا طويلا فان البرنامج يتيح للمستخدم 
ان يؤدي عملية اخرى خلال عملية الفتح , فمتثلا يتيح له الكتابة او تطبيق جرافيكس معين على صورة . 


و لسن الحظ قان قجوال بيسك: ئت هذه الهرة تيح ها التعامل مع منل قذة الفملبات بخلافق حم 
أضدازات فخواك بسك السافة : 


في البداية يجب عليك استدعاء المكتبة 


Imports System. Threading. Thread 


ثم اضف هذا الاجراء 


(Sub BeBusy 

Dim i As Integer 

For i = 1 To 20000 
Me.Text = i. ToString 
Next 

()Beep 

End Sub 


ثم اضف الكود الالي تحت زر الامر 1 


طعطusإy 'انشاء مهمة مستقلة للاجراء‎ 
(BeBusy Dim x As New System. Threading. Thread(AddressOf 


(x.Start 


و اخير اضف الكود التالي تحت زر الامر 2 


("MsgBox("hola 


ملاحظة : لو انك لم تقم بانشاء مهمة مستقلة للاجراء إاطعط و ضغطت على الزر 1 ثم ضغطت على 
الزر 2 فان الرسالة لن تظهر الا بعد انتهاء الاجراء إئuاطعط‏ . و لانك انشات مهمة مستقلة للاجراء إئuطعط‏ 
فان الرسالة ستظهر في اي وقت تريد . 


موضوعنا موضوع طويل و متشعب . ولكننا الان فهمنا كيفية برمجة هذه العمليات المستقلة و اخذنا فكرة 


ازرار الغارة 


اذا اردت معرفة عدد ازرار ماوس المستخدم فاكتب الكود التالي: 


(Button 1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Private Sub 
Handles Button1.Click 


MB 


End sub 


System.Drawing.Size Public Function MB() As 
Dim x 
mouse Get the number of buttons on the ' 


x = System.Windows.Forms.SystemInformation.MouseButtons 


(MsgBox(x. ToString 
End Function 


الطباعة 


ابسط طريقة لطباعة نص , هي كالاتي: 

اولا: من صندوق الادوات ×80 |100 |ضd‏ |اlةö. PrintDocument‏ 
تانيا: اضغط على الاداة نقرتين كي تقوم بكتابة الكود: 

تالثا: اكتب الكود التالي: 


_ Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e 

As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 
e.Graphics.DrawString("Helo World", New Font("Comic Sans MS", 20), Brushes.Black, 500, 
(500 

End Sub 


رابعا: قم باضافة زر امر ١0ا8‏ واكتب الكود التالي: 


(OPrintDocument1.Print 


ولكن الجديد اننا نلاحظ في تصريح الكود للاداة , "8٣٤1‏ ۷٤00ہام۴‏ ان المتغير € هو اهم شيء في هذه 
الاداة . لان به تتم طباعة النص او الصورة . والمتغير على هيئة 

. ystem.Drawing.Printing.PrintPageEventArgsونلاحظ‏ ان الكلاس و" اا۴ موجود في الکلاس 

. awin9ا(لذلك‏ يجب علينا ان نستخدم الخاصية كءأأمة6۲ للمتغير € لنقوم بالطباعة . والكلاس 
Graphics‏ به الکثیر من الدوال. 


ناخذ متثال اخر وهو طباعة الصور , نفس الخطوات السابقة وانما عليك ان تضيف مريع صورة وتضع فيها اي 
صورة تشاء , تم تستخدم الدالة ٥9#ة"wW1۳ه0۲‏ بدلا من الدالة , ١9‏ أ٣†أS؟سمaاD‏ كما في الاتي: 


_ As System.Object Private Sub Buttonl Click(ByVal sender 
Button1.Click ByVal e As System.EventArgs) Handles , 
OPrintDocument1.Print 

End Sub 


_ PrintDocument1_ PrintPage(ByVal sender As_ System.Object Private Sub 


_ (System.Drawing.Printing.PrintPageEventArgs ByVal e As , 
PrintDocument1.PrintPage Handles 

(500 ,e.Graphics.DrawImage(PictureBox1.Image, 500 

End Sub 


الدالة 0۷1۳398 تقوم برسم صورة في موقع معين , ولها تابعين 


1- الصورة التي تريد ان ترسمها . 
3 - موقع الصورة . بتحديد ال ,× . 


اذا انتهيت من تحديد الصورة او النص وتحديد المواقع فما عليك الا استخدام الدالة خ١‏ آ۴۲ الموجودة في 
|Jlكilئj PrintDocument1‏ . 


